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DIRECTIONS 


Many items at the Computer Faire in San Francisco (reported in our 
last issue) intrigued me. The new equipment being produced at such 
low prices boggles my mind. The new games for the state-of-the-art 
personal computers are extremely well done. Of all the areas being 
advanced there is one which is not moving noticeably. 

As fast as hardware and game software are moving, there is very 
little new being accomplished in the areas of APPLICATIONS and 
EDUCATIONAL software. Of course the programmers and publishers 
will produce and sell what the public is clamoring for. For a long time 
the clamor has not been for a better word processor but for a new 
game as good as the one in the arcades. 

The tastes and needs of the American (and foreign) consuming 
public have been changing lately. With the budget cuts forcing 
schools to lower the flexibility (if not quality) of the education they 
provide, parents are becoming increasingly aware of the need to fill 
some gaps at home. The computer is ideally suited to this task, but 
the vast majority of programmers have yet to realize the potential 
financial rewards in this area. The same holds true for application 
software. With the cost of a capable microcomputer dropping 
regularly, and price projections showing enormous price reductions in 
the next year, it is inevitable the application software market will 
change drastically. Nobody will want to pay $250.00 for Visicalc(tm) if 
that is all they paid for their 48K computer. 

The cost of all types of programming is obviously going to have to 
be reduced by a large margin. Of course this should be offset by the 
larger numbers of people buying the programs. The quality and USER 
FRIENDLINESS of application-type programs will have to increase 
also. Consumers will not be eager to pay even reasonable prices for 
software which isn't as good as the computers have become. It is my 
belief the software publishing industry will change radically in the 
next few years. The emphasis on Machine Language programming will 
continue, but there will be more commercial programs available in 
BASIC, Compiled BASIC, and FORTH. The need for elaborate copy- 
protection schemes will decline when program prices reflect their true 
market value. 

This is not to say the commercial programs currently available 
aren't quite good. | happen to use a commercial word-processor and a 
commercial database manager. | have, however, written many utility 
programs for myself, and am in the process of writing: my own 
database manager. None of these were intended to sell, but were my 
personal response to the (what | consider to be) the excessive cost of 
commercial software. 

Such magazines as COMPUTE and ANTIC have done much in the 
way of helping the consumer to get some real work from his/her 
personal computer without spending their grocery money. The 
programs published in those magazines are exactly what is needed by 
the vast majority of the personal computer-buying public. Other good 
people continue to donate quite good utility, educational, and 
application programs to the ACE public-domain exchange library. Our 
group makes every effort to make this available to the public wherever 
they might be in the world. While many of you need a TOP NOTCH 
word processor or database manager, most can get along quite nicely 
with programs either published in the magazines or available through 
the various computer clubs. 

Let me make it clear | have no intention of insulting or denigrating 
the software publishers. Many of the commercially published 
products have been very high quality. There is undoubtedly some 
inertia needing to be overcome in shifting operations to accommodate 
the future. In fact, the software publishers have been largely 
responsible for the incredible success of the micro-computer 
movement. Without all of those captivating games, many owners 
would not now have their computers. If they didn't own their 
computers they would not be considering using a computer to make 
their work or education more efficient or rewarding. 

| want to make a prediction. If FIRST RATE application software 
does not become available at much lower prices within the year the 
publishers of commercial software will lose a noticeable percentage 
of their market share. Many people will turn to enhancement devices, 
such as the ATR 8000 or the MICROMAINFRAME disk drive. These 
devices allow the purchase of inexpensive disk drives, and will allow 
the user to run extremely good software. In many cases, fairly 
complete software packages will come with the hardware, further 
lowering the cost to the consumer. It will be interesting to see what 
tactics the differing elements in this sales war take. 

Enough for now; next month we will look at the future of 
HARDWARE and how it might affect you. If you feel a need to express 
your opinion about this article, my number is on the back page. If you 
want to write educational software and want solid guidelines, write to 
our ERACE sig. They will be happy to send you a copy of our 
SOFTWARE EVALUATION form if you send a SASE. This form can 
give you an excellent idea of what educators are looking for and what 
potential problems you should avoid in your programming. Good Luck 
to you all. 

—Kirt E. Stockwell 


News and Reviews 


by Mike Dunn, Co-editor 


Tara Keyboard 
(2 Robert Speck Pky, Suite 1540, Mississauga, Ontario L42 1H8 
or Statler Bld., 107 Delaware, Suite 1610, Buffalo, NY 14202) 


Two months ago, | reviewed the InHome Keyboard for the Atari 400. 
After reading the review, Tara sent me theirs to compare. The Tara 
keyboard is also made in Canada, and is as easy to install as a direct 
replacement for the membrane one. Total time: less than 5 minutes. 
This keyboard is very well made, with a good feel and sturdy. The keys 
are laid out in a manner similar to the Inhome and different than the 
400. It seems to stand high in relation to the computer, but actually 
measures somewhat lower than the 800. The return key is slightly 
closer to the L key, and can be reached easily. My only real criticism is 
the space bar is higher than the first row of keys, which takes some 
getting use to. | prefer this one, but some like the InHome better. You 
need to try both to find the one you like. Now our bulletin board 400 is 
completely Tara equipt — both the 48K memory board and the 
keyboard were donated by Tara — thanks!! The computer has been 
running 24 hours a day for several months without a glitch. 


The Alog Pagewriter 
(Alog computing, 1040 Veronica Springs Rd., Santa Barbara, CA 93105, 
$40) 


This is a very unique new text processor written in valFORTH. The 
review copy is also unique — it allows you to edit, but when you try to 
print, you get “Buy alog pagewriter”, so | really can’t evaluate it. When 
the program is booted in, you get a picture of an 8” by 10” piece of 
paper, and a 2 line text window. As you type in the text window, dots 
are made on the “paper” corresponding to the letters and words, so 
you can see the page format at all times. For editing, etc., only two 
lines at a time can be seen. You can use special printer codes, etc., 
but Search commands are lacking. The usual Atari editing commands 
are there, as well as the ability to manipulate blocks of text and extra 
editing commands such as going to beginning or end of line, top of 
page, split line, etc. 

The new voice box by Alien (27 W. 23rd ST., New York, NY 10010, 
$150), the Alien II has just arrived and is very good. The voice quality is 
excellent, and it sings very well. There are several amazing demo 
programs which are very good, especially the ones by Jerry White, as 
well as some games and some fantastic songs with a singing face you 
can modify. Will be reviewed by the ERACE group next month, but if 
you want a good voice box, you won't go wrong by buying this one. 
Jerry also sent us a review copy of his new talking poker game with 
the SAM program — all software speech — which will be reviewed by 
Jim Bumpas, and it is a real gas — very funny. A similiar poker game 
by Jerry is included with the Alien Il. 

O.S.S. (10379 Lansdale Ave, Cupertino, CA 95014 Jis about to release 
a new language ACTION on a 16K ROM. This remarkable new 
language is extremely fast; on bench marks such as in BYTE it can 
beat the fastest! You can do anything with it; somewhat similiar to C, 
it comes with a few procedures and libraries of others, or you can 
write your own. Other projects on the fire at O.S.S. include a new 
BASIC, BASIC 400, which is sort of a stripped down BASIC A + with a 
resident DOS on a plug in ROM. This allows an Atari 400 owner with 
16K to run a disk drive! A new very fast Interger BASIC is being 
finalized, and an upgraded BASIC A+, possibly on a ROM, is being 
developed. This will be available to present BASIC A+ owners for a 
nominal price. 

Adventure International has just announced a new Disasseblerfor 
$50 allowing you to disassemble machine code which you can then 
load into any assembler and re-assemble, make changes, etc. It even 
puts the official Atari memory labels on it. | haven't seen it, but it 
sounds very good. 

John Wiley & Sons (1 Wiley Drive, NJ 08873) has a new book in their 
computer programmed learning series. Written in the same style as 
Atari BASIC by Bob Albrecht, the book which used to come with the 
Atari, it covers 6502 assembly language very well. Designed for 
beginners, 6502 Assembly Language Programming by Judi Hernandez 
et al is an excellent introduction and guide to a very difficult (to some, 
like me!) subject. If you like to be forced to think, as programmed 
learning texts do, you will want this book. There are many self-tests, 
etc. This is a true self-teaching guide, rather than a textbook. Highly 
recommended. 

Atari has finally released their new 850 Interface reference manual, 
and it is very good indeed. If you have an 850 interface and have not 
recieved yours, write to Atari at 1312 Crossman, Sunnyvale, CA 94086, 
and they will send it to you. AtariWriter is now in the stores at $80 
retail!! A best buy for sure. See my review in the March ACE or the 
May ANTIC! The printer drivers from APX have been delayed, but you 
can do anything except riaht iustifv proportional print without it. 


The ATR8000, the disk drive/printer/RS232 interface with CP/M 
option, has been reduced to only $350 for the basic 16K version. You 
get a 16K printer buffer, and, by adding an inexpensive generic, 
standard double-density drive, you have a great unit. You can upgrade 
to the full 64K CP/M version by yourself, or for $600, get it all. They 
have also released their Co-Power-88, an add on allowing you to run 
IBM PC disks, and, when in the CP/M mode, lets you use the 8088 
RAM for a RAM disk. Much of the software is now ready; however, the 
850 interface emulation is not. They supply a modem program for 
CP/M use (Modem), but you can not use the modem in the Atari mode 
yet. We have run KayPro and Osbourne software with it. 

We have some new disks this month for you. There are three 
education disks (see ERACE column), a disk of source codes which 
have been in ACE plus a PM utility and others, and an 1983 #1 disk. 
The Source code programs are assembly language listing, some in 
Atari and some in SynAssembler forms. Most are commented, and 
should prove useful to those of you interested in 6502 machine 
language. The 1983 #1 disk has all the programs from the newsletter 
since the christmas disk. The GTIA SketchPad has some nice screens 
done by the author (see front cover) and will be included. The 
Education Disks are $10 each; the others are $15 each. For double- 
sided disks, add $5 for the extra side. Any Atari drive can use double 
sided disks. 

All the money goes into the club — no one gets paid. Let me know if 
you want us to get another drive, so more programs can be put on the 
bulletin board, a 1200 BAUD modem, or whatever. 

We have made the print on this issue larger, because of complaints 
about the small print. Let me know if this is large enough — but, of 
course, it allows less room for text. 

—Mike Dunn, Co-Editor 


Preppie 11! 


Review by Marc Russell Benioff 
631 West 28th Street, Los Angeles, CA 90007 


їп 1982, Russ Whetmore designed Preppie! for Adventure 
International. Preppie was a humorous game involving a young 
prepster named, Wadsworth Overcash. At that time, Wadsworth was 
working to go to college at the local golf course. During his day, he 
had to avoid golf carts, alligators, and other assorted dangers. Finally, 
the summer was over and he enrolled at USC. Wadsworth knew all the 
true preps went to school there. 

After Wadsworth entered USC, he learned about the fraternity rush, 
and looked at several houses. He found the best house on fraternity 
row, Tau Kappa Epsilon —The Tekes. He wanted to join TKE very 
badly, and for this reason they pledged Wadsworth. During his pledge 
period, Wadsworth was required to do many strange things, and finally 
his initiation week arrived. During this week the actives gave him his 
final goal. Wadsworth was to paint the top and bottom floors of the 
fraternity house, as well as the street adjacent to the house. 
Wadsworth was confident of his ability and so he began on this 
monsterous task. 

In 1983, Russ Whetmore released Preppie Il! In this new game, you 
are again Wadsworth. The object in this game is to paint the fraternity 
house, and the street. You must avoid frogs, cars, and other assorted 
menaces while completing your fraternity goal. 

Preppie Il is an excellent sequel. It uses all the aspects of the ATARI 
required to become an excellent game. The music playing during the 
game is superb, and was created by the synthesizer for which 
Whetmore is famous. Even though the game may seem simplistic to 
some — this is one of the factors making Preppie ІІ so good. 

The colors used in Preppie II! follow the logic of the game — all of 
them preppie. Pinks, blues, and greens are used to maintain the full 
aspect of having a preppie game. The joystick response is superb, and 
the button allows you to start the game. The button can also be used 
to stop other tedious routines, such as the part of the game when you 
die and are carried away to heaven. This continuous user control just 
touches on the several parts of the human engineering which is built 
in. 

Every time Russ releases a new game it turns to gold. He is 
currently working on Preppie ІІІ, and rumor has it it will be an anti-prep 
version. Russ Whetmore comes through on his third Atari game. 

Preppie II! 

Adventure International 

Box 3435, Longwood, Florida 32750 

$34.95 

ATARI 400/800/1200x! 

16K Cass, 32K Disk 


BUMPAS REVIEWS 


POKERSAM is a 5-card stud poker game for the ATARI by our 
friend Jerry White. 

The game is produced by Don't Ask Software and requires no 
cartridge. The game is played by keyboard input alone. The title page 
plays a nice tune while you read. But the real treat is when you start 
the play. 

Гуе always enjoyed poker. | never win because my hand can always 
be read all over my face. | figured | could stand a better chance with a 
mere computer. That might be true, except for the wise cracks 
‘Cincinnati Sam’, or ‘Poker Sam’ (whatever he calls himself) makes all 
the time the program is running. It distracts you from the play when 
you try not to miss the next gem the computer is saying. 

Oh, did | forget to tell you? The program includes voice synthesis 
routines (these are the same people who bring you 'S.A.M.', the 
software voice synthesizer). | played one session and counted nearly 
50 wise-crack phrases uttered by Poker Sam. In addition, he talks up 
every play in the game. Whatever you do, or he does, he has to say it. 
The game is very entertaining if only for the computer generated voice 
and the content of the wise cracks. 

By the way, Poker Sam plays a pretty good game of poker, too. 

А.Е. is a new arcade shoot 'em up from Broderbund Software. The 
game may be played with either joystick or paddle and requires 48k. 
The program is fully guaranteed and will be replaced for free unless 
the disk is physically destroyed (in which case they ask $5). 

You have a gun which moves across the bottom of the screen. The 
targets look like little Manta Rays chained together in a string. You 
shoot a kind of bomb which can destroy some or all of the AEs as they 
enter the barrage area. 

The AEs may drop bombs to destroy your gun, or they may sweep 
down to the ground and eat you. 

The box tells you the instructions are on the disk. | take this to mean 
| can read how to use all the game functions. 1 can't find the 
‘instructions’, but if one just lets the program go without pushing the 
trigger it seems to cycle through the 5 screens, showing how the 
targets move. 

The graphics are the real feature of this game. The music is nice but 
seems only to announce a new graphics page. The graphics have a 
high-res 3-D effect. As the AEs fly around, in and out of asteroid belts, 
planets and buildings you find the 'terrain' protects them from your 
shots. 

The bombs you shoot go off at different altitudes. | think you can 
control the fusing of the bombs (i.e., with the joystick), but | don't 
seem to achieve any consistency so far. 

—Jim Bumpas 


A Look At the Commodore 64 


For Christmas my father gave me a Commodore 64. | like it and my 
father says it has potential. 

The 64 comes in a grey brown case. The case is the same as the 
VIC-20 case. The keys are black. But who cares very much how it 
looks? Let's look at the 64's features. 

| asked a couple of my friends to tell me what they like best about 
the 64. Bill says he likes the graphics, and Will says, “I like the 64k 
memory at the low price." 

The 64 has 64k memory, but the computer can't use all of it for 
BASIC. So, when you power up, BASIC says it has about 38k it can 
use. Also the RAM the operating system doesn't use is all yours for 
machine language programs. 

The 64's graphics include a 300 by 200 high resolution graphics 
mode, a 160 by 200 medium resolution graphics mode, sprites, and 
some more text and graphics modes. 

If you think Player Missiles are easy to use, just take a look at the 
64's sprites. There is only one POKE for the X position, and only one 
POKE for the Y position. The sprites are considerably larger than 
ATARI’s. The 64 has a very big advantage over ATARI with sprites. 

The 64 sound is very hard to use. | wish you could program the 
sound on the 64 like you do on the ATARI. ATARI beats the 64 here. 

As you know, the ATARI has a lot of software going for it. Well, | 
haven't seen much software for the 64 (good or bad). 

If you buy a 64, dcn't expect much support from Commodore. Тһе 
Users Guide has only 166 pages, and it doesn't give enough 
information for a two year old. You had better count on spending $20 
for a reference manual which, by the way, is 486 pages long. It has 
enough information to last you for a couple of years. 

—Jim Ockers 
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Old Mac Donald 


Old Mac Donald is a program to aid preschoolers in learning the 
concepts of number. Animals appear in seperate fenced off sections 
of a barnyard. When the animals on the right side match in some way 
the animals on the left, the child presses a key or the fire button on 
joystick 0. A correct match is rewarded with a smiley face while an 
incorrect response produces a frown. Smiley faces all the way across 
the top of the screen results in the playing of ‘Old Mac Donald’. 

The difficulty level can be set using the ‘menu’. Animals appearing 
on the left and right can be the same (cows and cows) or different 
(cows and ducks) The positions at which animals appear can be 
ordered or they can be made to appear at random. Further, the 
maximum number of animals to appear in one set and the delay in 
waiting for a response can be adjusted. 

There are three seperate tasks to choose from. Perhaps the easiest 
is to match the total number of animals on the left and right (MATCH 
GROUPS). Another possibility is the COUNT ANIMALS task. In this 
case a certain number of animals appears on the left and animals 
appear on the right one at a time. The object is to wait until the number 
on the right equals the number on the left. Perhaps the most difficult 
task is to MATCH PATTERNS. In this case the number of animals left 
and right is always the same but they are scrambled in different 
positions. The object is to wait until the same animals appear in the 
same relative positions left and right (the patterns match). 

My son (almost 3) seems to enjoy playing the game. He seems to 
get a little confused except on the simplest tasks and occassionally 
delights in filling the screen with ‘uggy’ faces, but | consider it a major 
accomplishment when he actually asks for the program. If you have 
any comments or suggestions for improvement | will appreciate 
hearing from you. 

—Stan Ockers 
RR#4 Box 209, Lockport, IL 60441 


GTIA Sketchpad 


by Scott Berfield 


This program was sent in by Scott Berfield, a new member from 
Chicago. It is a fabulous painting program, with many features, but 
needs a GTIA chip to work. To make it even more fabulous, l've 
included subroutines which will dump your picture to an Epson or IDS 
MicroPrism printer; it should be easy to modify it to work with a 
NEC/Prowriter or other graphic printer. The subroutine is adapted from 
an article by Edward Schultz, Jr. reprinted from MACE, August, 1982, 
by way of Pat Warnshuis of the Portland Atari Club. This will print in 
half-tones, and the picture resembles a newspaper photograph. The 
picture on the front cover was done by Scott, and dumped to an IDS 
MicroPrism. If you don't want to type this all in, it'S on our “1983 #1” 
disk or tape. 


Commands: 
Point use joystick to move cursor; press trigger to plot point. 
Line Press trigger to plot one end, press trigger at other end to draw 
the line. 
Doodle draw with joystick, press trigger for thick line; ESC for menu. 
Box Plot one corner, move to opposite corner and press trigger to draw 
box. 
Circle input the correction factor (to make up for the oblong Gr. 9-11 
pixels). Plot the center. Move to a point on the circumferance and 
press the trigger. 
Fill area to be filled must be completely outlined in the fill color! Move 
cursor into the area and press the trigger. 
Whole Screen wipes the entire drawing area with color. 
Save input filename or C for cassette. E to cancel save. 
Retrive input filename to be retrieved (Loaded). 
Hardcopy dumps to IDS MicroPrism printer or Epson MX80 with 
Graphix with proper subroute. 
New start over. 
Quit quit. 

Use the left and right arrow keys to change colors at any time- you 
must start with a color to see your drawing. ESC will return you to the 
menu from any command. 

Since the program is in BASIC, you can change or add as you like. 
The author retains the rights to this one, but is allowing ACE members 
to use it. 

—M. Dunn, Co-Editor 


OCKERS 


Machine Language # 6 
Binary Operations 


Binary math is similar to decimal math except there are only two 
digits (zero and one). Instead of the units, tens, hundreds, etc. places, 
we have the units, twos, fours, eights etc. places. Each place has a 
value double that of the one on the right rather than 10 times the value. 
The number 10101110 has the value (working right to left): 
Ox1 + 1х2 + 1x4 + 1x8 + 0x16 + 1x32 + 0x64 + 1х128 = 174 decimal. 

Numbers can be multiplied by two by shifting all digits to the left 
one place, bringing in a zero to the units place. The assembly 
language instruction to do this is ASL (Arithmetic Shift Left). The most 
frequently used ASL instruction works on the accumulator directly 
and has the op code 0A. Since the computer only works with 8 binary 
digits (BITS) at a time, the leftmost digit will be pushed out of the 
BYTE (8 bits). It is not lost but is pushed into a one bit location called 
the CARRY bit. 

Division by two is quite simple also. All digits are shifted right one 
place. The units digit is lost and whatever occupies carry moves into 
the the 128's place. The operation for this is called LSR (Logical Shift 
Right). The op code for LSR of the accumulator is 4A. 

Two useful operations for combining numbers are AND and OR. To 
perform the operation, write the binary numbers on top of each other 
and inspect them by columns. In each column the result of an AND is 
a one only if both bits in that column are one. Any other combination 
gives a zero. The AND is useful for "masking" out part of a number. 
Simply AND the number with a MASK which has all bits you want to 
force to zero equal to zero. To zero out the lower four bits of 10101110 
AND it with 11110000: 

10101110 (initial byte) 

11110000 (mask) 

10100000 (result) 

The OR operation gives a result of zero only if both bits in a column 
are zero. This makes it very useful in forcing certain bits to become 
ones. For example, OR the previous result with 00000111 (decimal 7): 

10100000 (initial byte) 

00000111 (mask) 

10100111 (result) 

All of these operations are used in a program I’ve written to provide 
sound/music independent of what is going on in Basic. The sounds 
themselves are stored in strings made up of consecutive frequency 
and duration bytes. A frequency byte of zero represents a rest while 
zero for both frequency and duration signals the end of the string. 

A number of bytes in page 6 control the sounds and must be 
initialized properly. Most are in groups of 4, representing the four 
individual voices. Those labeled REPS control how many times a 
string will be repeated. Once the value reaches zero, the voice is no 
longer active. Poke 1666 with 3 and the string associated with voice 2 
will be repeated 3 times. The location of strings is given to the routine 
by inserting the addresses in the bytes following STRLO and STRHI. 

Counters determine how many times you pass through the VBI 
routine before another frequency-duration pair is loaded. Bytes 
holding counts start at CNT. The type of sound produced is 
determined by the distortion-volume bytes beginning at DIST. The 
lowest four bits of these bytes represent the volume. To seperate 
notes in music these bits are modified after a certain count is reached, 
gradually reducing the volume to zero. The count at which this process 
begins is held in the byte QUIET. The higher the value of QUIET, the 
more separation between notes. If quiet is zero there will be no 
separation and sounds will run together. Non-music sounds require 
this. It is necessary to keep track of the volumes (SUSH and following) 
as well as the maximum volumes (LOUD and following) for the 
purpose of resetting the volumes. 

A lot of the complication involved in the Sound in VBI routine 
occurs because of the order of frequency and control sound registers. 
Things would be a lot simpler if all frequency bytes were followed by 
all control bytes. Since they alternate it is necessary to double the 
index to reach every other byte. 

Values for the positions in strings must be initialized once (STRPOS 
and following) but will be done automatically each time the sound is 
finished. The string is then ready for another 'playing'. 

To use this routine it has to be set up in memory and inserted in the 
Vertical Blank Interrupt sequence. The program ‘Old Mac Donald’ uses 
the routine where it is held in the string VBI$. Only four individual 
sound strings are used but more could be used by changing the 
pointers in page 6. 

—Stan Ockers 


0 R:PILOT LISTING BY RUTH ELLSWORTH 
1 R:ACE NEWSLETTER, 3662 VINE MAPLE 
2 В: EUGENE, OR 97405 $10 YR 

10 R:LOGO TYPE TURTLE 

20 GR:CLEAR 

30 XBEGIN 

40 А: 

50 MU, D, RB, E 

60 JM:XUP , XDOUN , XRIGHT , XLEFT 

ТӨГЕ: 

80 XTURTLE 

90 GR: PENYELLOW 

100 GR: TURN225; DRAW2 ; TURN180;G0 2;T 
URN90; DRAW2 ; TUBN180;G0 2; ТИРМ-135; 0 
RAWI ; TURNIS; GOI 

110 E: 

120 XERTURT 

130 GR: PENERASE 

140 GR: TURN225 ; DRAW2 ; ТИВМ180;060 2;T 
URN90 ; DRAW2 ; TURN180;GO0 а; TURN-135;T 
URN180 

150 GR:DRAWI 

160 E: 

170 xUP 

180 U:XERTURT 

190 GR:PEN YELLOW 

200 GR: TURNTOC ; DRAWI 

210 U:XTURTLE 

220 T:THIS IS TURNTOO;DRAW 1 

230 T: 

240 J: ЖВЕСІМ 

850 E: 

260 XDOWN 

270 U:XERTURT 

280 GR:PEN YELLOW 

290 СА: TURNTO180 ; DRAW 

300 U:xTURTLE 

310 T:THIS IS TURNTO180; DRAW 1 

220. Т: 

330 J: ЖВЕСІМ 

340 E: 

350 XRIGHT 

340 U:XERTURT 

370 GR:PEN YELLOW 

380 GR:TURNTO90 ; DRAW 

390 U:XTURTLE 

400 T:THIS I5 TURNTO90;DRAM 1 

410 T: 

420 J:XBEGIN 

430 E: 

440 XLEFT 

450 U:XERTURT 

460 GR:PEN YELLOW 

470 GR: TURNTO-90 ; DRAWL 

480 О: TURTLE 


RUTH’S PILOT 


490 T:THIS IS TURNTO-90 OR 270; DRAW 
1 

500 T: 

310 J:XBEGIN 

920 E: 


10 R: THIS PROGRAM ALLOWS A YOUNG CH 
ILD. TO DRAW WITH THE TURTLE USING 
ONLY THE DIRECTIONAL ARROWS 

20 GR: CLEAR 

30 GR: GOTOC ,0; TURNTOO 

49 XBEGIN 

90 СА: PENYELLOW; 4{ TURN90 ; DRAWI } 

60 А: = 

70 J(8B764-214) : xUP 

80 J(@B764=15) : XDOUN 

90 J{@B764=6) : XLEFT 

100 J(@B764=7) : ЖРІСНТ 

110 J(8B764-55):XFF 

120 J(@B7464=54) : XMFF 

130 J(8B764-34) : XOTF 

140 J(8B764-32) :XTTF 

150 GR:PENERASE ; 4( TURN90 ; DRAU1 ) 

140 J:XBEGIN 

170 E: 

189 XUP 

190 J(%Y>46) : XSOUND 

800 GR:TURNTOO;DRAW 1 

210 C:@B764=49 

220 J:XBEGIN 

230 E: 

240 X*DOUWUN 

845 J(3Y€-30) : Ж500М0 

250 GR: TURNTO180 ; DRAW 1 

260 C:@B764=49 

270 J:XBEGIN 

280 E: 

290 ЖЕРТ 

295 JIUSXC-78) : KSOUND 

300 GR: TURNTO270 ; DRAW 1 

310 C:@B764=49 

320 J:XBEGIN 

330 E: 

340 ЖВІСНТ 

345 J(3X2 78) : xSOUND 

350 GR: TURNTO90 ; DRAW 1 

360 C:@B764=49 

370 J:XBEGIN 

380 E: 

450 ЖЕЕ 

455 J(13X? 781 : X SOUND 

456 JOY» 46) :XSOQUND 

460 GR: TURNTO4S; DRAW 1 
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470 
460 
490 
300 
305 
506 
310 
520 
330 
540 
550 
5355 
336 
560 
370 
580 
390 
600 
605 
606 
610 
620 
630 
640 
630 
660 
670 
680 
690 
700 
710 
720 
T30 
800 
810 
820 
830 
840 
850 
840 
870 
880 
900 
910 
$20 
930 
940 
950 
960 
970 
980 


C:8B764-49 

J: XBEGIN 

Е: 

XMFF 
JOXC-78) : X50UND 
JUSY? 461 : X SOUND 

GR: ТИВМТ0-45; DRAW 1 
C:8B764-49 
J:XBEGIN 

E: 

ЖОТҒ 
JODO 781 : X SOUND 
JOY (730) : XS0UND 
GR: TURNTO135;CRAW 1 
C:8B764-49 

J: XBEGIN 

E: 

ЖТТҒ 

JOX (7781) : XS30UND 

JE $Y 4-30) :XSQUND 
GR: TURNTO225 ; DRAW 1 
С:8В764-49 

J: XBEGIN 

E: 

XTOQUP 

С:#Ү=47 

GR: DRAWTOSX ЖҮ 
50:13 

РА:19 
C:8B764-49 
50:0 

J: BEGIN 

Е; 

XTOODOUN 
С:%Ү--31 

GR: DRAWTO#X , $Y 
50:13 

РА: 10 
C:8B764249 
50:0 

Jd: XBEGIN 

E: 

XTOORIGHT 
С:#Х=79 

GR: DRAWTOEX , ЖҮ 
50:13 

РА:10 
C:8B764249 
50:0 

J: XBEGIN 

E: 


1000 ЖТООІ ЕҒТ 
1010 С:%Х--/9 
1020 GR: DRAWTOSX , #Y 


ІТ abed 0109 


Berfield’s Sketchpad 


GTIA SKETCHPAD 
by Scott Berfield 


1 REM ХХХ ХА ХХХ ХХХ ЖЖЖ 


2 РЕМ Ж АСЕ NEWSLETTER xx 
3 REM Ж 3662 VINE MAPLE DR ЭЖ 
4 REM X EUGENE, OR 97405 ЖЖ 
5 REM Ж $10 YR xx 
& БЕМ ЖЮК ЮКО 
7 REM X — GTIA Sketchpad xk 
8 REM X by Xx 
9 REM X Scott Berfield kx 
10 REM X 644 Ы. Surf, $405 x 


11 REM Ж Chicago, Ill 60657 x% 

12 REM * (с) by the Author xx 

13 REM X all rights reserved xx 

14 REM ЖХХЖХЖЯ ЖАЖА ЖЖЖ ЖА ЖЖЖ ЖЖ ЖА ЖЖ 

20 GRAPHICS 0:РОКЕ 82,1:POKE 752,1 

30 GOSUB 1520:GO5UB 1240 

40 7 CHR$(125) ; CHOICES ; CHOICE1$ :LOC 

ATE XP,YP,UAL:COLOR C:PLOT ХР, ҮР 

50 OPT-PEEK(KEY?:IF ОРТОНЮКЕҮ THEN 
POKE KEY NOKEY:GOSUB 70 

60 COLOR ABS(C-8):PLOT XP,YP:COLOR 

C:PLOT XP,YP:COLOR VAL:PLOT XP,YP:G 

OTO 50 

70 IF OPT=10 THEN GOTO 580 

80 IF OPT=NO THEN GOTO 620 

90 IF OPT=58 THEN GOTO 660 

100 IF OPT=21 THEN GOTO 840 

110 IF OPT=18 THEN GOTO 880 

120 IF OPT-56 THEN GOTO 210 

130 IF OPT=62 THEN СОТО 1070 

140 IF ОРТ=40 THEN GOTO 1130 

150 IF OPT=47 THEN GOTO 1200 

160 IF OPT=7 THEN GOTO 490 

170 IF OPT=4 THEN GOTO 520 

180 IF OPT=35 THEN GOTO 1200 

185 IF OPT=57 THEN СОТО 32700:REM Р 
OR PRINTER DUMPING ONLY 

190 IF OPT=46 THEN 1250 

200 GOTO 50 

810 7 CHR${125); "PLACE CURSOR WITHI 
N THE OUTLINE AND PRESS TRIGGER. 
220 GOSUB JOYSTICK 

230 COLOR C 

240 YP1=YP:LEFT=270 : DOWN=320 : FLAG=0 
: DFLAG=0 

250 FOR QzXP TO 319-XP:LOCATE @,YP, 
COLR:IF COLR=C THEN GOTO LEFT 

240 PLOT @,YP:NEXT Ө 

270 FOR Q=XP-1 TO 1 STEP -1:LOCATE. 
Q,YP,COLR:IF COLR-C THEN 290 


280 PLOT Q,YP:NEXT Q 

290 IF FLAG-1 THEN GOTO DOWN 

300 YP=YP-1:LOCATE XP,YP,COLR:IF CO 
LR-C THEN FLAG-1:GOTO DOUN 

310 GOTO 250 

320 IF DFLAG=1 THEN 340 


. 330 YP=YP1: DFLAG=1 


340 Үр-ҮР41:10САТЕ XP,YP,COLR:IF CO 
LR=C THEN GOTO 40 

350 GOTO 250 

360 GOTO 40 

370 IF STRIG(NO)=NO THEN COLOR C:RE 
TURN 

380 IF PEEK(KEY)=6 THEN POKE KEY,NO 
KEY:GOSUB 520 

390 IF РЕЕК(КЕҮ)=7 THEN POKE KEY,NO 
KEY:GOSUB 490 

400 IF PEEK(KEY)=28 THEN POKE KEY,N 
OKEY:GOTO 40 

410 OXP=XP:0YP=YP: OVAL=VAL 

420 XP=XP+XD (STICK (NO) ) :YP=YP+YD(ST 
ICK(NO)) 

430 IF XP)79 THEN XP=0 

440 IF XPX0 THEN XP=79 

450 IF ҮР)149 THEN YP=0 

460 IF YP<0 THEN YP=149 

470 LOCATE XP,YP,VAL:COLOR OVAL:PLO 
T OXP OYP 

480 COLOR C:PLOT XP,YP:COLOR ABS(C- 
8):PLOT XP,YP:COLOR VAL:PLOT ХР, ҮР: 
GOTO 370 

490 ОВ=В: ОВ1=0В+М1 : OC=C : В=В+М2:С=С+ 
М1:1Е СУСМАХ THEN С=СМІМ 

500 IF B)BMAX THEN B-BMIN 

510 GOTO 540 

520 0В-В:0В1-0В4М1:0С-С:В-В-М2:С-С- 
N1:IF ССМІМ THEN C=CMAX 

530 IF В(ВМІМ THEN B=BMAX 

540 COLOR OC:PLOT BAR(OB),159:DRAWT 
0 BAR(OB1) ,159 

550 IF CC(INT(O.SXCHAX)4N1 THEN COLO 
R CMAX 

5&0 IF C^SINT(O.5XCMAX)4N1 THEN COL 
OR CMIN 

570 PLOT BAR(B) ,159:DRAWTO БАРІ ВЕН 
),159:COLOR C:RETURN 

580 7 CHR$(125);"POSITION CURSOR AN 
D PRESS TRIGGER TO PLOT POINT." 
590 GOSUB JOYSTICK 

600 PLOT XP,YP 

610 GOTO 40 

620 7 CHR$(125);"POSITION CURSOR AN 
D PRESS TRIGGER TO PLOT STARTING 


POINT." 
6 


630 GOSUB JOYSTICK:PLOT XP, YP:CXP=X 
P:CYPzYP 
640 7 CHR$(125);"NOW POSITION CURSO 
R AT ENDPOINT AND PRESS TRIGGER 
TO DRAW LINE." 
650 GOSUB JOYSTICK:PLOT CXP,CYP:DRA 
WTO XP,YP:GOTO 40 
660 7 CHR$(125);"USE JOYSTICK TO DR 
АШ, HOLD TRIGGER FOR А THICK LINE, 
PRESS ESC TO EXIT TO MENU" 
670 Z-PEEK(KEY):IF ZONOKEY THEN PO 
KE KEY,NOKEY 
680 IF Z=6 THEN GOSUB 520 
690 IF Z=7 THEN GOSUB 490 
700 IF 7-28 THEN GOTO 40 
710 IF STRIG(NO)=NO THEN 770 
720 XP=XP+XD(STICK{NO}) : YP=YP+YD(ST 
ICK(NO)):IF XP(NO THEN XP=79 
730 IF XP>XMAX THEN XP-NO 
740 IF YP<NO THEN YP=YMAX 
750 IF YP)YMAX THEN ҮР-М0 
760 COLOR АВ5(С-СМАХ) :PLOT XP, YP: CO 
LOR C:PLOT XP,YP:GOTO 470 
770 IF STRIG(NO) THEN 670 
780 XP-XP4XD( STICK (NO)) : YP=YP+YD(ST 
ICK(N0)):IF XP)78 THEN XP-N1 
790 IF ХР(Мі THEN Хре-М1 
800 IF YP4N1 THEN XP=78 
810 IF ҮР)148 THEN YP=N1 
820 PLOT XP-N1,YP-N1:DRAWTO XP+N1, Y 
P-N1:PLOT XP+N1,YP:DRAWTO ХР-М1 ‚ҮР: 
PLOT XP-N1,YP4N1:DRAWTO ХРАМІ, YP+NI 
830 GOTO 770 
840 7 CHR$(125);"POSITION CURSOR TO 
LOWER RIGHT CORNER OF BOX AND PRE 
55 TRIGGER." 
850 GOSUB JOYSTICK:PLOT XP, YP:BX=XP 
:BYzYP:?7 CHR$(125);"NOW POSITION TO 
UPPER LEFT AND PRESS TRIGGER TO 
PLOT"; 
870 GOSUB JOYSTICK:PLOT XP, YP: DRAWT 
0 BX, YP:DRAWTO BX,BY:DRAWTO XP,BY:D 
RAWTO XP,YP:GOTO 40 
880 TRAP 880:7 CHR$(125);"ENTER ROU 
МОМЕ55(1-3 TO 1 ELLIPSE, .275=ROUND 
)"; :INPUT SCALE 
890 7 "NOW PLACE THE CURSOR AT THE 
CENTER OF THE CIRCLE AND PRESS THE 
TRIGGER." :GOSUB JOYSTICK: XC=XP: YC= 
YP 
900 7 CHR$(125);"NOW POSITION THE C 
URSOR TO А POINT ON THE CIRCUMFERA 
NCE OF THE CIRCLE AND PRESS THE 
TRIGGER." 
GOTO page i10 


910 GOSUB JOYSTICK :XR=XP:YR=YP:IF X 
C)XR THEN XD=XC-XR 

920 IF XC)XR THEN XD=XC-XR:GOTO 940 
930 XDzXR-XC 

940 IF ҮС>ҮВ THEN YD=YC-YR:GOTO 960 
950 YD=YR-YC 

960 IF XC=XR THEN R=YD:GOTO 990 

970 IF YC=YR THEN R-XD:GOTO 990 

980 RzSQR(UXDEXDI CYDEYD) ) 

990 X-0: YzR: DIAMETER-3-2XR 

1000 IF X<=Y THEN GOSUB 1040:IF DIA 
METER(O THEN DIAMETER=DIAMETER+4&X+ 
6:XsX41:GOTO 1000 

1010 IF ХОҮ THEN TRAP 40000:GOTO 40 
1020 DIAMETER=DIAMETER+4%(X-Y1+10 
1030 Y=Y-1:X=X+1:GOTO 1000 

1040 TRAP 1060:PLOT XC+{XXSCALE) , YC 
+Y:PLOT XCHYKSCALE) , YC+X: PLOT XC 
YXSCALE), YC-X:PLOT XC+{XSCALE) , YC- 
Y 

1050 PLOT XC~{XKSCALE) , YC-Y:PLOT ХС 
—(YXS5CALE) , YC-X: PLOT XC-(YKSCALE) , Y 
C4X: PLOT XC- (XKSCALE) , YC+Y 

1060 RETURN 

1070 TRAP 1070:7 СНВ%(125); "INPUT Е 
ILE NAME (E TO EXIT).": INPUT FILES: 
IF FILE${1,1)="E" THEN TRAP 40000:6 
070 40 

1080 OPEN 4&N1,8,NO,FILES:FOR I=704 
TO 712:PUT Ni РЕЕК(1):МЕХТ I 

1090 РТОР=256%РЕЕК (106) : BASE-PEEK (8 
8)+256ЖРЕЕК (89) : BTS=RTOP-BASE : HI-IN 
T(BT5/256) : LOSBTS- (HIK256) 

1100 POKE 950,11:POKE 852,PEEK(88): 
POKE 853, РЕЕК(89):РОКЕ 856,1/0:РОКЕ 
857,НІ 

1110 DUMZUSR(ADR C" hhhXL Ud") ,16) :CLO 
SE #Ni:REM Ж AND d inverse 

1120 TRAP 40000:GOTO 40 

1130 TRAP 1130:7 CHR$(125);"LOAD FR 
OM WHICH FILE (E FOR MENU"; :INPUT F 
ILES 

1140 IF FILE$(1,1)="E" THEN TRAP 40 
000:GOTO 40 

1150 OPEN #N1,4,N0 FILES 

1160 FOR 1=704 TO 712:GET #N1,A:POK 
E I,A:NEXT I 

1170 POKE 850,7:POKE 852, РЕЕК(88):Р 
ОКЕ 853 РЕЕК(89):РОКЕ 856 ,NOKEY : POK 
Е 857, NOKEY 

1180 DUM-USR(ADR("'hhhiL Ud" ) 16) :CLO 
SE $N1:REM Ж AND d inverse 

1190 TRAP 40000:GOTO 40 


1800 7 CHR$(125);"DO YOU WANT TO 5А 
UE THIS IMAGE FIRST?":OPEN %М2,4,М0 
,"K:":GET #N2,A 

1210 IF CHR$(A) O "Y" AND CHR$(A) О)" 

М" THEN CLOSE £N2:GOTO 1200 

1220 IF CHR$(A)z"Y" THEN GOSUB 1070 
1230 IF ОРТ-47 THEN END 

1240 IF OPT=35 THEN RUN 

1250 COLOR C:FOR X2=N0 TO 79:PLOT X 

2,NO:DRAWTO X2,YMAX:NEXT X2:GOTO 40 
1260 REM ЖЖЖ MODE SELECTION xxx 
1270 7 СНН%(125) 
1280 7 :7 "PLEASE 
MODE :" 

1290 7 :7 "1 

NE HUE" 

1300 ? :? "2 

OMBINATIONS" 
1310 7:7 "3 

E SHADE" :? 
1320 OPEN #N2,4,N0,"K:":GET #N2,A 
1330 CLOSE #N2:0N 4-48 COTO 1340,13 
70,1460 

1340 MODE=9:7 CHR$(125);"GRAPHICS М 

ODE 9 GIVES YOU 16 SHADES OF ANY ON 

E HUE." 

1350 7 :7 “WHAT BACKGROUND COLOR WO 

ULD YOU LIKE ТО USE(0-15)"; : INPUT 
BKGND: GRAPHICS 8:POKE 752,1 

1360 POKE 623,64:POKE 87 , MODE : BHIN= 

№ : BMAX=31 : CMAX=15:SETCOLOR 4,BKGND 
,N0:GOSUB 1400: В=М№1 : СОТО SETUP 

1370 MODE=10:7 CHR$1125) ; "GRAPHICS 

MODE 10 GIVES YOU YOUR CHOICE OF AN 

Y 9 HUE/SHADE COMBINATIONS." :? 

1380 FOR 8-М0 TO 8 

1390 POSITION N2,15:? "COLOR #";Q;" 
HUE , SHADE (0-15) пеН Тира 
T H,L 

1400 IF H<NO OR Н215 OR L<NO OR 121 

9 THEN 1390 

1410 СІ8)-НЖ16Ң :МЕХТ 0 

1420 BMIN=9 : BMAX=25 : CMAX=8 : GRAPHICS 
8:POKE 623,128:POKE 87, MODE:FOR Q= 
704 TO 712:РОКЕ Q,C(Q-7704) :NEXT Q 
1430 POKE 752,1:G05UB 1600 

1450 В=ВМІМ: СОТО SETUP 

1460 MODE=11:7 CHR${125) ; "GRAPHICS 
MODE 11 GIVES YOU 16 HUES OF ANY ON 
E SHADE.":? 

1470 7 :7 “WHAT SHADE{0-15) WOULD Y 
OU LIKE"; : INPUT SHD 


7 


MODE 9816 SHADES OF 0 


MODE 1089 HUE/SHADE C 


MODE 11816 HUES OF ON 


SELECT A GRAPHICS | 


1480 GRAPHICS 8:POKE 752,1:POKE 623 
,192:РОКЕ 87 ,MODE:GOSUB 1600:SETCOL 
OR 4,N0,5HD: BMIN=N1 : BMAX=31 : СМАХ=15 
:В=М1 

1490 C-CMIN:COLOR C:FOR I=BAR(BMIN) 

TO BAR(BMAX) STEP 4:FOR J=0 TO 3:P 
LOT I¢tJ,150:DRAWTO I+J,159:NEXT J 
1500 C=C+N1:COLOR C:NEXT I:C=CMIN 
1510 COLOR C:XP=39:YP=79:COLOR ABSI 
C-CMAX) : PLOT BAR{BMIN) ,159:DRAWTO B 
AR(BMINtN1) 159: RETURN 
1520 POKE 559,0 
1530 DIM XD(15) , YD( 15) ,BAR(32) ,C(8) 
‚ СНОІСЕ$ (80) , CHOICE1$(40) ,FILE$(20) 
1540 CMINZNO0:N0z0:N121:N2z2: XMAX-79 
: YMAX=149 : SCALE=0 . 275: SETUPZ1490 : JO. 
YSTICK=370 : KEY=764 : NOKEY=255 
1550 FOR @=1 TO 15:READ N:XD{Q)=N:R 
EAD N:YD{Q)=N:NEXT Q 
1560 DATA 0,0,0,0,0,0,0,0,1,1,1,-1, 
1,0,020;51,1;71977,2190;010 201,0, 
1,0,0 
1570 FOR 0-1 TO 32:READ N:BAR(Q)=N: 
NEXT Q 
1580 DATA 8,11,12,15,16,19,20,23,24 
,87,08,31,38,35,36,39,40,43,44,47,4 
8,51,52,55,56,59 60,63,64,67,08,71 
1590 CHOICE$="Point, Line, Doodle, 
Box, Circle, Fill, Whole screen, Sav 
e, Retreive" 
1591 CHOICE1$-" Hardcopy, 

New, Quit":POKE 559,34:RETURN 

:REM Use INVERSE to begin each word 
1600 DL-PEEK(560)4256XPEEK (561) 
1610 POKE 559,0 


1620 POKE DLf166,143 


1630 POKE 513,6:POKE 512,0 

1640 FOR 1=1536 TO 1546 

1650 READ А:РОКЕ I,A:NEXT I 

1660 DATA 72,169,0,141,10,212,141,2 

7,208,104 64 

1670 РОКЕ 54286 192 

1680 POKE 559 34:РЕТИВМ 

32690 REM PRINTER SUBROUTE ADAPTED 

FROM RON MILLER, SAN DIEGO ACE, FOR 
IDS Microprism PRINTER 

32700 DIM GREY$(32) , BUFFER$(400) :CL 

OSE $7:0PEN #7,8,0,"P:": PRINT #7,CH 

R$(3):PRINT #7 

32701 FOR I=1 TO 32:READ A:GREY${I, 

T)=CHR$(A) :МЕХТ I:REM Set grey scal 

е 

32702 DATA 255 255 251,223, 251, 20а, 

206,183 


OLD MACDONALD 
by Stan Ockers 


0 REM КОО ХА ХЕ ХХХ ЖЖЖ 


1 REM Ж АСЕ NEWSLETTER * 
с REM Ж 3662 VINE MAPLE DR x 
3 REM Ж EUGENE, OR 97405 x 
4 REM X $10 YR x 


5 REM ОООО KERR 
6 REM ХХХ ХХХ ХХХ ХХХ ЖЖЖ ЖЖЖ ХА ХХ 


7 REM Ж OLD MACDONALD, а game x 
8 REM x for children x 
9 REM Ж by Ж 
10 REM Ж Stan Ückers Ж 
11 REM Ж Lockport, Il x 
12 REM Xx May, 1983 xx 


13 REM oopooloraoootaooiorororaintototolaipoo 
100 GOSUB 2080:GOSUB 650 

110 OPEN $1,4,0,"K:":DLY=3:LIM=5:GO 
SUB 1830 

120 GRAPHICS 0:7 "INITIALIZING":? " 
TAKES 15 SECONDS" 

130 DIM X1(8),Y1(8),X2(8) , Y2(8) Alí 
8) ,42(8) ,A$05) ,F1$(40) ,F2$(40) , B$(1 
7):B$11)z" ":B$(17)z" ":B$(2)-B$ 
140 RESTORE 150:FOR J=0 TO 8:READ A 
,B,C,D:X1(UIsA: Y1UJIzB: X8 (JU) C: ҮІ) 
)-D:NEXT J 

150 DATA 3,6,22,6,8,6,27,6,13,6,32, 
6,5,9,24,9,12,9,31,9,4,12,23,12,10, 
12,29 ,12,6,15,25,15,12,15,31,15 

160 Fi$(1)-"kmua":F1$139) "M" :F1$ (4) 
-F1$:F2$(1)2"1nn":F2$139)z"M" :F2$(4 
)=Ғ2$ 

170 DIM F3$(17) ,B118) ,B2(8) :F3$z"xx 
XX jOp J уор JOp JJ" 

180 GOSUB 1010:GOSUB 1290:POKE 16,1 
12:POKE 53774,112 

190 SMILY=0:FROWN=0:7 CHR$(125):50U 
ND 2,0,0,0:SOUND 3,0,0,0 

200 POSITION 0,3:7 F1$;:POSITION 0, 
4:7 F2$;:POSITION 0,18:7 F1$;:POSIT 
ION 0,19:7 F2$; 

210 FOR J=5 TO 17:POSITION 1,J:7 ЕЗ 
$(J,J) ; POSITION 20,J:7 F3$(J,4) ; :P 
OSITION 38,J:7 F3$(J,J); :NEXT J 
220 ANIMAL-INT(RND(O 137 )H1 : NUMSINT( 
RND(0)%(LIM-1) +2: ANIMAL2=ANIMALH1 : 
IF ANIMAL2=8 THEN ANIMAL2=1 

230 IF LOCN-0 THEN FOR Ј=0 TO 8:A1( 
J)zJ:AB(J)-J:NEXT J 

240 IF LOCN=1 THEN GOSUB 1350 

250 IF TYPE=0 THEN ANIMAL 2=ANIMAL 
260 GOSUB 1570:GOSUB 1580 


OCKERS' 


270 POSITION 2,20:7 $6;" 
" 


280 ІҒ ТА5К(20 ТНЕМ 390 

290 REM Ж MATCH GROUPS Ж 

300 GOSUB 1700 

310 GOSUB 610:FOR J=0 TO R-1:GOSUB 

1430:NEXT J 

320 GRP--1 

330 GOSUB 1580:GRP-GRPH1:IF GRPOLIM 

-2 THEN GOSUB 1650:GO0T0 220 

340 FOR J=0 TO B1(GRP)-1:GOSUB 1400 
:МЕХТ J:N-B1(GRP):GOSUB 1550 

350 MAXTIMEZ60XDLY:GOSUB 1520:GOSUB 
1590 

360 IF TIMEUP=1 THEN 330 

370 IF B1(GRP) OR THEN GOSUB 1650:6 

OTO 220 

380 GOSUB 1770:GOTO 220 

390 IF TASKO1 THEN 490: 

400 REM Ж COUNT ANIMALS Ж 

410 FOR J=0 TO NUM-1:GOSUB 1430 :NEX 

T J 

420 CNTz0:MAXTIME-60XDLY:GOSUB 1520 

430 GOSUB 1590:IF TIMEUP=0 THEN 460 


440 J-CNT:GOSUB 1400:GOSUB 1530:CNT | 


=CNTt+1:N=CNT:GOSUB 1550:GOSUB 1520 

450 IF CNT(NUM OR CNT=NUM THEN 430 

460 IF CNT-NUM THEN GOSUB 1770: СОТО 
220 

470 GOSUB 1650:GOTO 220 

480 REM Ж MATCH PATTERNS Ж 

490 NUM=LIM:GOSUB 1350:GOSUB 1730:R 

AND-INT URNDEO X CLIM-1) ) 2 : ANIMAL-RA 

ND 

500 FOR J=0 TO 114-1 :АМІМА =АМІМА + 
1:IF ANIMAL?7 THEN ANIMAL=1 

510 GOSUB 1430:NEXT J 

520 SEQN--1:FO0R J=0 TO 8:Ад())=А1(.) 
) :NEXT J 

530 GOSUB 1580: SEQN=SEQN+1:IF SEQN> 

LIM THEN GDSUB 1650:6070 220 

540 ANIMAL2=B1(SEQN) :FOR J-0 TO LIM 

-1:ANIMAL2-ANIMALOT1:IF ANIMAL2)7 T 

HEN АМІМА 2=1 

390 GOSUB 1400:NEXT J 

960 MAXTIME-Z60XDLY:GOSUB 1520:GOS5UB 
1590 

370 IF TIMEUP-1 THEN 530 

380 IF Bi1(5EQN)O RAND. THEN GOSUB 16 

30:G0T0 226 

390 GOSUB 1770:С0Т0 220 

600 REM Ж RANDOM #, 2 TO LIM x 

610 R-INT(RNDLOPEULIM-1)42) : RETURN 

620 REM Ж RANDOM #, 1 TO LIM Ж 


8 


630 RzINT(RND(O XL IME1) : RETURN 
640 REM X UBI ROUTINE X 


650 DIM VBI$(128) :RESTORE 640:FOR J 
=1 TO 128:READ A:UBIS(J, J) SCHRS(A) : 
NEXT J 

660 DATA 162,3,189,128,6,240,115,22 
2,132,6,48,39,189,132,6,205,160,6, 1 
76,102,189,152,6,240,97 ,189,148,6 
670 DATA 41,240,29,152,6,72,134,205 


..,188,10,170,104,157,1,210,166,205,2 


22,152,6,24,144,71,189,136,6,133,20 
3 

680 DATA 189,140,6,133,204,189,148, 
6,133,206, 188,144, 6,134,205, 138,10, 
170,177,203, 240,32 ,157,0,210, 165,20 
6 

690 DATA 157,1,210,166,205,200,177, 
203,240,23,157,132,6,200,152,157,14 
4,6,189,156,6,157,152,6,24,144,12 
700 DATA 157,0,210,24,144,223,157,1 
д4 6,222 128,6 ,202,16,133,76,98,228 
710 REM X INSERT UBI ROUTINE X - 
720 RESTORE 740:FOR ./-1536 TO 1545: 
READ A:POKE J,A:NEXT J 

730 UBI-ADR(UBIS):HISINT(UBI/256):L 
O-UBI-25&XHI:POKE 1538,L0:POKE 1540 
„HI 

740 DATA 104,160,0,162,0,169,7,76,9 
2,228 

750 REM X SOUND STRINGS x 

760 DIM SND1$(110):RESTORE 770:Ғ0В 
J=1 TO 110:READ A:SND1$1J, J) SCHRS (A 
) :NEXT J 

770 DATA 81,20,81,20,81,20,108,20,9 
6,20,96,20,108,40,64,20,64,20,72,20 
,78,20,81,60,108,20,81,20,81,20,81, 
20 

780 DATA 108,20,96,20,96,20,108,40, 
64,20,64,20,72,20,78,20,81,60,108,2 
0,81,20,81,20,81,20,108,20,81,20,81 
‚20 

790 DATA 81,20,108,20,81,20,108,20, 
81,20,108,20,81,20,81,20,96,20,108, 
20,81,20,81,20,81,20,108,20,96,20,9 
6,20 

800 DATA 108,40,64,20,64,20,72,20,7 
2,20,81,60,0,0 

810 DIM SND2$(98):RESTORE 820:FOR J 
=1 TO 98:READ A:SNDe$(U, J) -CHR$(A) : 
NEXT J 

820 DATA 128,20,128,20,128,40,121,2 
0,121,20,128,40,108,20,108,20, 121,2 
0,121,20,128,60,0,20 





830 DATA 128,20,128,20,128,40,121,2 
0,121,00,128,40,108,20,108,20,121,2 
0,121,20,128,60,0,20,128,20 128,20, 
128,20 
840 DATA 0,20,128,20,128,20,128,20, 
0,80,128,40,128,40,128,20,128,20,12 
1,40,128,20,128,20,128,40,121,20,12 
1,20 
850 DATA 128,40,108,20,108,20,121,2 
0,121,20,128,60,0,0 
860 DIM 5М038116) :РЕ5ТОРЕ 870:FOR J 
21 TO 16:READ A: SND3$(J,J)=CHRSIA) : 
NEXT J 
870 DATA 96,20,81,20,72,20,81,20,96 
,00,81,20,60,60,0,0 
880 DIM SND4$116):RESTORE 890:FOR J 
=1 ТО 16:READ A:5ND4$(J, J) ZCHR$(A) : 
NEXT J 
890 DATA 102,20,108,20,102,20,121,2 
0,162,20,128,20,121,650,0,0 
900 REM Ж PAGE 6 INIT. X 
910 RESTORE 920:FOR J-1664 TO 1696: 
READ А:РОКЕ J,A:NEXT J 
920 DATA 1,1,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,170,170,170,170,10,10 
,10,10,10,10,10,10,0 
930 POKE 1696,15 
940 HI=INT(ADR(SND1$) /256) :POKE 167 
6 HI:LÜ-ADR(SND1$)-256XHI:POKE 1672 
,LO 
950 HIZINT(ADR(SND2$)/256) :POKE 167 
7,HI:LOzADR(SND2$) -256XHI:POKE 1673 
0 
960 HI-INT(ADR(SND3$) /256) :POKE 167 
8 HI:LÜ-ADR(SND3$) -256XHI:POKE 1674 
Ін 
970 HISINT(ADR(SND4$)/256) :POKE 167 
9 HI :LO=ADR( SND4$)-2546%HI : POKE 1675 
LO 
980 А=05А 1534) 
990 RETURN 
1000 REM Ж Change character set Ж 
1010 DIM MC5$(42):RESTORE 1020:FOR 
1 TO 42:READ A:MC5$(J, J)-CHR$ (A): 
NEXT J 
1020 DATA 104,169,0,133,203,133,205 
1189 224 133 204,165,106 56 233,5,1 
39,106 24 
1030 DATA 105,1,133,206,162,4,160,0 
177 203,145,205 ,200 ,208 ,249 230 20 
4,230 206 202 208 242 96 
1040 &-USRLADRIMCS$) ) : CSPAGE=PEEK (1 
06)+1 :CS=2546%CSPAGE : GRAPHICS 0:РОКЕ 
736 ,CSPAGE 


1050 RESTORE 1080:FOR J=C5+208 TO C 
G4511:READ A:POKE J,A:NEXT J 

1060 RESTORE 1210:FOR J-C54776 TO C 
54927:РЕАП A:POKE J,A:NEXT J 

1070 RETURN 

1080 DATA 0,165,41,10,2,0,0,0,0,85, 
85,85,149,170,195,243,2,66,106,104, 
160,128,0,192 

1090 DATA 160,47,160,0,0,0,0,0,0,21 
,165,165,133,134,134,134,0,85,85,85 
,169,170,166,170 

1100 DATA 0,90,90,90,86,86,86,85,25 
3,21,145,149,147,159,175,169,127,84 
,68,84,196,244,240 ,96 

1110 DATA 138,138,138,72,72,8,8,8,9 
0,85,85,85,68,192,192,192,165,170,1 
06,0,0,0,0,0 

1120 DATA 90,90,154,19,19,19,19,19, 
32 ,152,152,152,152,152,168,42,8,38, 
38,38,38,38,38,168 

1130 DATA 162,162,171,43,62,61,60,2 
55 198,138,234, 233,199,125 60 255 8 
42,234 251,127,95,15, 49 

1140 DATA 64,16,21,17,81,87,5,61,4, 
16,80,16,20,84,64,240,0,0,0,0,0,48, 
12,3 

1150 DATA 63,63,63,58,58,50,48,240, 
240 ‚244 ‚245 ,185,186,186,48,60,3,3,6 
7,87,85,165,5,85 

1160 DATA 0,0,0,0,2,9,25,38,0,0,0,1 
70,106,153,157,111,0,0,0,128,96,152 
,153,102 

1170 DATA 38,41,41,10,2,0,0,3,110,1 
57 ,174,110,191,191,192,192,102,154, 
154,104,160,128,192,240 

1180 DATA 0,0,0,255,40,40,248,56,0, 
0,0,0,0,5,21,84,9,42,43,10,0,0,0,0 
1190 DATA 90,248,255,148,12,60,0,0, 
137,42,170,170,170,42,58,58,90,106, 
169 ,165,169,170,3,3 

1200 DATA 138,168,162,106,170,170,1 
80,160,0,0,0,160,160,128,0,0 

1210 DATA 0,0,1,6,26,27,107,107,0,8 
5,170,170,170,235,235,235,0,0,44,14 
4,164,228,233,233 

1220 DATA 106,106,27,26,6,1,0,0,170 
,170 170,235, 190,170,985, 0,169,169 2 
28,164 144,64 0.0 

1230 DATA 255,255, 63,40,15,3,0,0,25 
5,195 ,40,255, 255,255, 255,0,255,255, 
252 60 240192,0 0 

1240 DATA 60,60, 60,0, 60,60, 60,60 
1250 DATA 12,56,40, 40 235 235 235 4 
0,40,235,235 235 40 40,40 40 0,0,0, 
0,255,255 255 0 
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1260 DATA 0,855,255,255,0,0,0,0,60, 
60,60,60,60,60,149,149,149,170,60,6 
0,60,60,60,50 

1270 DATA 0,0,3,15,63,63,252,252,0, 
855,255,255 ,255,80,60,60,0,0,192,24 
0,252,252 63,63 

1280 REM Ж CHANGE DISPLAY LIST Ж 
1290 DL=PEEK (560) +PEEK (561) x254 : РОК 
E OLt3,68:FOR J-6 TO 24:POKE DLtJ,4 
:NEXT J:POKE DLt25,7:POKE DLt26,6 
1300 POKE DLt*27,6:FO0R J=29 TO 32:Р0 
KE DLtJ-1,PEEK (DLtJ) 

1310 RESTORE 1320:FOR J=708 TO 712: 
READ A:POKE J,A:NEXT J 

1320 DATA 72,62 52, 78, 58 

1330 POKE 752,1:RETURN 

1340 REM Ж SCRAMBLE ANIMAL POS. x 
1350 FOR J=0 TO 8 

1360 R-INT(RND(O)39) :FOR K=0 TO J-1 
[IF AL(K)=R THEN 1360 

1370 NEXT K:AL(J)=R:A2(J)=AL(U)+ANI 
MAL: IF A2(J)>8 THEN A2@(J)=A2(U)-9 
1380 NEXT J: RETURN 

1390 REM Ж PRINT ANIMAL ON RIGHT x 
1400 RESTORE 1440410XANIMAL2:READ А 
$:POSITION X2(A2{J)) ,ҮгіА2(М)):7 AS 


t 


1410 READ A$:POSITION Х2(А21(.Ј) ) , Yat 


ARIJ) 41:7 AS; :RETURN 


1420 REM Ж PRINT ANIMAL ON LEFT Ж 
1430 RESTORE 1440+10%ANIMAL:READ A$ 
:POSITION X1(61(J)),Y1(61(J1):7 A$; 
1440 READ A$:POSITION X1(61(J)),Y1( 
A1(J))+1:7 A$; : RETURN 

1450 DATA , :; =, , 


_ 1460 DATA )78AB,CDEF , 


1470 DATA GH, IJK, 

1480 DATA LMA,OPQ, 

1490 DATA RST, UUW, 

1500 DATA ХҮ,2Г, 

1510 DATA ,\J*_, 

1520 POKE 764,255:POKE 18,0:POKE 19 
,0:POKE 20,0: RETURN 

1530 TIME=PEEK (20)+256KPEEK (19) : IF 

TIME MAXTIME THEN MAXTIME=TIME 

1540 RETURN 

1550 P=24N:FOR Js15 TO 0 STEP -0.6: 
POSITION P,20:7 $6;CHR$(Nt144) : POSI 
TION Р,20 

1560 7 #6;" ":500№0 3,40,10,J:NEXT 

J:POSITION P,20:7 &6;N:RETURN 

1570 FOR J-5 TO 17:POSITION 2,J:7 В 


$;:NEXT J:RETURN 


1580 FOR J=5 TO 17:POSITION 21,J:? 

B$;:NEXT J:RETURN 

1590 TIMEUP=0:POKE 764,255 

1600 TIME=PEEK (20) +а56ЖРЕЕК (19) : IF 

TIME>MAXTIME THEN TIMEUP-1:RETURN 
1610 IF PEEK(53279)=3 THEN РОР :005 

UB 1830:GRAPHICS 0:GOSUB 1290:POKE 

756 ,CSPAGE:GOTO 190 

1620 IF PEEK(764)=255 AND STRIG(O)= 

1 THEN 1400 | 

1430 RETURN 

1640 REM X FROWN Ж 

1450 POKE 1667,1 

1660 P=4k(8-FROWN)+2: POSITION P,1:7 
$6;"qrs" : POSITION P,2:7 #6; "аћі":Р 

ROWN=FROWN+1: IF FROWN-9 THEN 190 
1670 IF SMILY+FROWN)9 THEN SMILY=5M 
ILY-1 

1680 RETURN 

1690 REM Ж SCPAMBLE ARRAY Ж 

1700 FOR J=0 TO LIM-2 

1710 GOSUB 610:FOR K=0 TO J-1:IF B1 
{K}=R THEN 1710 

1720 NEXT K:Bi(J)=R:NEXT J: RETURN 
1730 FOR J=0 TO LIM-1 

1740 GOSUB 4630:FOR К=0 TO J-1:IF Bi 
{К)=В THEN 1740 

1750 NEXT K:B1(J)=R:NEXT J: RETURN 
1760 REM Ж SMILY Ж 

1770 POKE 1666,1 

1780 Pz4X5MILYt2:POSITION P,1:7 #6; 

"abc":POSITION P,2:7 #6;"def": SMILY 

zoMILYt 

1790 IF SMILY-9 THEN FOR J-1 TO 400 
‘NEXT J:POKE 1664,1:POKE 1665,1:GO0T 

0 190 

1800 IF SMILY+FROWN>9 THEN FROWN-FR 

OWN-1 

1810 RETURN 

1820 REM X MENU Ж 

1830 GRAPHICS 17:POSITION 3,3:7 #6; 

"SETUP CONDITIONS":POSITION 3,5:7 # 

6;"choose f" 

1840 POSITION 1,8:7 #4;"(1) locatio 

ns:":POSITION 4,9:IF LOCN=0 THEN ? 

#4;" ORDERED" 

1850 IF LOCN=1 THEN 7 %6;" RANDOM" 

1860 POSITION 1,11:7 $6;"(2) animal 

s:":POSITION 4,12:ІҒ TYPE=0 THEN 7 

#6;" SAME" 

1870 IF TYPE=1 THEN 7 #6," DIFFEREN 

т" 

1880 POSITION 1,14:7 £6;"(3) task": 

POSITION 4,15:IF TASK=0 THEN ? #6," 
MATCH GROUPS" 


1890 IF ТА5К=1 THEN 7 #6;" COUNT АМ 
TMALS" 

1900 IF ТА5К-с THEN 7 #6;" MATCH PA 
TTERN" 

1910 POSITION 1,17:7 #6;"(4) 41у ti 
ве ";DLY:POSITION 1,19:7 £ó;"(5) # 


limit ";LIM 
1920 POSITION 1,21:7 &6;"(6) start 
pgra" 


1930 GET #1,A:IF A(49 OR 8254 THEN 
1920 

1940 IF 4254 THEN RETURN 

1950 GOSUB 1950+10%(A-48) : СОТО 1830 
1960 LOCN-ABS(LOCN-1) : RETURN 

1970 TYPE=ABS(TYPE-1) : RETURN 

1980 7 £$6;CHR$(125):POSITION 3,6:? 
#6;"choose a task":POSITION 1,8:7 $ 
6;"(1) MATCH GROUPS" 

1982 POSITION 1,10:7 $6;"(2) COUNT 
ANIMALS":POSITION 1,12 

1984 7 #6;"(3) MATCH PATTERN":GET 4 
1,A:IF А(49 OR A051 THEN 1980 

1986 TASK=A-49 : RETURN 

1990 7 $6;CHR${125):POSITION 3,6:7 
%6; "ENTER DELAY":POSITION 3,8:7 #6; 
"TIME (SEC)":POSITION 3,10:7 #6;"(1 
-9])"; 

1992 GET $1,DLY:DLY-DLY-48: IF DLY(1 
OR DLY?9 THEN 2020 

1994 RETURN 

2000 7 #6;CHR$(125) :POSITION 3,6:7 
$6; "ENTER MAX." : POSITION 3,8:7 $6;" 
NUMBER OF" :POSITION 3,10:7 #6; "ANIM 
ALS (3-9)" 

2010 GET #1,LIM:LIM=LIM-48:IF LIM(e 
OR LIM>9 THEN 2050 

2020 RETURN 

2030 GET #1 DLY:DLY=DLY-48:IF DLY(1 
OR DLY?9 THEN 2020 

2040 RETURN 

2050 7 #6;CHR${125): POSITION 3,6:7 

#6; "ENTER MAX.": POSITION 3,8:7 $6," 

NUMBER OF": POSITION 3,10:7 #6; "ANIM 

ALS (3-9)" 

2060 GET #1,LIM:LIM=LIM-48:IF LIM(3 
OR LIM)? THEN 2050 

2070 RETURN 

2080 GRAPHICS 18:RESTORE 2090:FOR J 

=1 TO 12:READ X,Y,A:POSITION X,Y:7 

$6;CHR$(A):NEXT J: RETURN 

2090 DATA 7,3,111,9,2,76,11,3,196,1 
,8,205,3,7,65,5,8,99,8,8,228,10,7,2 

39,12,8,110,14,7,193,16,8,236,18,9, 
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GTIA Sketchpad con’t 


32703 DATA 219,78,221,70,217,70,248 
,85 

32704 DATA 38,153,36,153,36,145,17, 

70 ` 

32705 DATA 4,65,4,32,0,16,0,0 

32708 FOR Х=79 TO 0 STEP -1:P=5:FOR 
Y=0 TO 191:LOCATE X,Y,A:PTR=AtAT : 
BUFFERS (P) =GREY$ (PTR, PTREL) :P=P+2:N 

EXT Y 

32709 PRINT #7;" 


и 
4 


" ; BUFFERS 


Epson МХхЕО 
printer routine 


32699 REM GR. 9 DUMP PROGRAM FOR МХ 

80 BY RON MILLER, SAN DIEGO ACE 

32700 TRAP 32707:DIM GREY$(32) , BUFF 

ER$(400) :OPEN #7 ,8,0,"Р:" 

32701 FOR 1=1 TO 32:READ A:GREYSII, 

I)-CHR$(A):NEXT I:REM Set grey scal 

= 

32702 DATA 255,255,251 , 223,251 , cee, 

206,183 

32703 DATA 219,78,221,70,217,70,248 
‚85° 

32704 DATA 38,153,36,153,36,145,17, 

ТЕ 

32705 DATA 4,65,4,32,0,16,0,0 

22706 BUFFERS(1)-CHR$(27) : BUFFERS (2 
="K" - BUFFERS C3) -CHR$ (128) : BUFFERS ( 

4)=CHR$(1):REM Tell Epson 384 dots 
coming 

32707 PRINT #7:PRINT #7:PRINT $7;CH 
рф(27); "А"; СНАФ(8) :REM set Epson fo 
г 8 dots/line 

32708 FOR X=79 TO 0 STEP -1:P=5:FOR 

=0 TO 191:LOCATE X,Y,A:PTR=AtAtI: 

BUFFERS (P)=GREY$(PTR,PTRH1) :P=Pt2:N 
EXT Y 

32709 PRINT %7;" 
:NEXT X 

32710 RETURN 


" ; BUFFERS 


PLEASE send us the screen dump 
routines for your printer that 
will work with this program or 
other prograa® s 


REMAKER/REMOVER 


REMAKER is written to help me with some of the download files I’ve 
gotten which are documentary types. Not all of them are really 
transportable to ап ATARI system, because they don't have line 
numbers. REMAKER adds a line number and REM statement in front 
of each line of the candidate file. There are a lot of really useful things 
resulting from this process. 

First, if you don't have an Assembler/Editor you can display or edit 
an Assembly language program without the BASIC interpreter going 
wild and rejecting the program. Second, this program has handled a 
number of files which none of the text editors | own will load or handle 
successfully. Third, since Kurt Holter told me he was investigating the 
translation of some Apple software on disk, | wrote the program to 
handle 256-character lines which is the Apple logical line maximum 
length. 

REMOVER is a program to remove the line numbers and REM 
statements added by REMAKER. This program combination permits 
you to enter a program into BASIC, use the BASIC editor, which is very 
powerful and easy to use (told you it was the best language), make 
your changes or additions and deletions, and then recreate the original 
file in an edited form. To the best of my knowledge neither program 


has serious bugs of any kind. 


REMa ker 
& REMover 


10 REM Ж A FREDERICK ATARI COMPUTER 
X Ж TECHNICAL SOCIETY ORIGI 
NAL x PROGRAM 
Ж 
20 REM REMAKER by Robert Schniebolk 
PEMAKER processes files w 


hich are not BASIC compatib 

le by add 

30 REM ing line numbers and REM sta 

te- ments. The output file са 

n then be edited by the scree 

n ediior. 

40 REM The output file's name will 

be the same as the source, b 

ut it will have an extension 
"REM" . 

50 REM NOTE: REMAKER WILL NOT PROCE 

55 'SAVED' FILES PROPERLY. I 

T IS INTENDED FOR EASY EDIT 
ING OF 

&0 REM DOWNLOADED FILES OF ALL TYPE 
5. lis GE аасы cits ar is 
. RUS 


70 POKE 82,0:GRAPHICS 0:7 ,"REMAKER 
-by Bob Schniebolk" 

80 DIM A$1256) ,B$12),1$(15),0$1151: 
Biz" ,":AZOB:L-LEN(GAS) 

90 CLOSE #1:CLOSE #2:POSITION 0,4:7 
"ENTER INPUT FILESPEC ";:INPUT I$ 
100 FOR К=1 TO LEN(IS$):IF I${K,K)=" 
" THEN B-K 


— Bob Schniebolk 
110 NEXT K:IF B THEN 0%=1%(1,6):0$%( 
В+1 )="ВЕМ" : СОТО 130 
120 0$%=1%:0%(1ЕМ(0%)+1)=" REM" 


130 TRAP 90:0РЕМ #1,4,0,1%:0РЕМ #2, 


8,0,0$ 

140 ? :7 "PROCESSING FILE":8=115:TR 

AP 190 

150 INPUT #1;A$:A=At2:IF L(-B THEN 

7 #0;А; В%;А$ 

160 IF L>B AND L(z2XE THEN ? #2;А;В 

$;8$(1,B):6-612:7 #2;А;В%;А% (8+1) 

170 IF 1) 2%В THEN 7 #2,A;B$;A$(1 ,B) 
:А=А+2:7 #0;А;В$; АФ (В+1 ,2ЖВ) :А=А+е: 

7 Фа; А;В$;А$(2ЖВ+1) 

180 GOTO 150 

190 CLOSE #1:CLOSE %2:7 CHR${253):7 
"TASK COMPLETED":? : TRAP 210 

200 7 " - HIT RETURN TO":7 "EN 

TER ";CHR$(34) ;0$; CHR$134) : POSITION 
0,9: NEW 
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10 REM Ж А FREDERICK ATARI COMPUTER 
x Ж TECHNICAL SOCIETY ORIGI 
NAL x x PROGRAM 
Ж 
20 REM REMOVER by Robert Schniebolk 
REMOVER processes files w 


hich have been created by R 
EMAKER to 

30 REM remove the line numbers and 

REM statements produced by RE 
MAKER. It's output returns th 
e file to 

40 REM its original form after edit 
ing is completed. REMOVER's о 
utput file name is the same 

as the 

50 REM source file, but does not ha 
ve an extension...... RIS 01/ 
09/83 


60 POKE 82,0:GRAPHICS 0:7 ,"REMOUVER 

-by Bob Schniebolk":? :? :? :7 

70 DIM A$(120),1$(15) 09111) 

80 CLOSE #1:CLOSE 42:7 "ENTER INPUT 
FILESPEC ";:INPUT I$:7 

30 IF IS(LEN(IS$)-2) O"PEM" THEN 7 C 

HR$(253) ;"FILE MUST HAVE 'REM' EATE 

NTION PRODUCED BY REMAKER!":7 :GOTO 
80 

100 O$zIS(1,LEN(IS)-4] 

110 TRAP 80:0РЕМ $1,4,0,I1$:0PEN #2, 

8,0,0$ 

120 7 :7 “PROCESSING FILE":? :TRAP 
150 

130 INPUT #1,A$:IF LEN{A$)>5 THEN 7 


— $82;5$(5):7 AS(4) 


140 GOTO 130 
150 CLOSE #1:CLOSE 42:7 CHR$1253):7 
"TASK COMPLETED": TRAP 200 


RUTH'S PILOT con't 


1030 50:13 
1040 PA:10 
1050 С:0В764-49 
1060 50:0 

1070 J:XBEGIN 
1080 E: 

2000 X5O0UND 
2010 50:13 

2020 PA:10 

2025 C:@B764=49 
2030 50:0 

2040 J:XBEGIN 
2050 E: 


Ocker’s Assembly Language Listings 


VBI SOUND ASSEMBLY LISTING 
BY Stan Ockers 


PAGE 1 


=D200 


0000 
0680 
0684 
0688 
068C 
0690 
0694 
0698 
069C 
06A0 
=00CB 
=00CC 
=00CD 
=00CE 
=E 462 
06А1 
0000 А203 
0002 В08006 
0005 F073 
0007 0Е8406 
0004 3027 
000C В08406 
000Ғ CDA006 
0012 В066 
0014 В09806 
0017 F041 
0019 BD9406 
001С 29Ғ0 
001Е 109806 
0021 48 
0022 86CD 
0024 84 
0025 0А 
0026 AA 
0027 68 
0028 900102 
0028 A6CD 
0020 DE9B06 
0030 18 
0031 9047 
0033 BD8906 
0036 85СВ 
0038 В08С06 
0038 85CC 
0030 BD9406 
0040 85CE 
0042 BC9006 
0045 86CD 
0047 ВА 
0048 0А 
0049 AA 
0044 В1СВ 
004С F020 
004: 900002 
0051 А5СЕ 
0053 900102 
0056 АБСО 
0058 C8 


10 ; SOUND ROUTINE FOR UBI 


20 AUDF1 = 
30 AUDCI = 
4) $= 
50 REPS %= 
60 CNT5 Xs 
70 STRLO Ж= 
80 STPHI Ж- 
90 STRPOS X 


$D200 
$D201 
$0680 
144 
ұм 
144 
ж+4 
*44 


0100 DIST ¥= ¥+4 


0110 SUSH * 


0120 LOUD $= 
0130 QUIET X- x+1 
0140 INDLD = $CB 
0150 INDHI = $CC 


ж+4 
%+4 


; AUDIO FREQ. REGISTER 
; DISTORTION-VOL REGISTER 


; 11664) € TIMES THRU 

; (1668) NEXT NOTE DELAY 
; (1672) SOU. STRING LO 

; (1676) SOU. STRING HI 

; (1680) POS. IN STRING 
; (1684) DIST-VOL BYTES 

; (1688) PRESENT LOUDNESS 
; (1692) MAX. LOUDNESS 

; (1696) CNT TO START QUIET 
; (203) INDIRECT POINTER 
; (204) 


0160 SAVEX = $CD ; (205) TEMP STORAGE 
0170 SAVED = $CE ; (e06) " ы 
0180 ХІТУВ = $E462 ; BACK TO ATARI UBI 
0190 *- $00 

0200 LDX $903 ; 4 voices 

0210 1000 LDA REPS,X ; is voice active? 
0220 BEQ NEXT ; no 

0230 DEC CNTS,X ; load new note? 
0240 BMI NOTE ; yes 

0250 LDA CNTS,X ; reduce volume? 
0260 CMP QUIET 

0270 BCS NEXT ; no 

0280 LDA SUSH,X ; finished quiet? 
0290 BEQ NEXT ; yes 

0300 LDA DIST,X ; take dist-vol 
0310 AND $9F0 ; mask out vol 
0320 ORA SUSH,X ; put new vol in 
0330 PHA ; save for later 
0340 5ТХ SAVEX ; keep index 0 
0350 ТХА ; double index 
0360 ASL A 

0370 TAX 

0380 PLA ; get byte back 
0390 STA AUDCi,X ; reload dist-vol 
0400 LDX SAVEX ; recover index 
0410 DEC SUSH,X ; next vol level 
0420 CLC ; skip over 

0430 BCC NEXT 

0440 NOTE LDA STRLO,X ; string address 
0450 STA INDLO — ; into indirect 
0460 LDA 5TRHI,X ; pointer 

0470 STA INDHI 

0480 LDA DIST,X ; save dist-vol 
0490 STA SAVED ; for later 

0500 рҮ 5TRPOS,X ; index into string 
0510 STX SAVEX ; save index 

0520 TXA ; double index 
0530 ASL А 

0540 TAX 

0550 LDA (INDLO),Y ; get byte 

0560 BEQ REST ; rest if zero 
0570 STA AUDF1,X ; use as freq 
0580 LDA SAVED ; get dist-vol 
0590 REST1 STA AUDC1,X ; update register 
0600 LOX SAVEX ; recover index 
0610 INY ; next byte 


PAGE 2 
0059 В1СВ 0620 LDA (INDLO),Y ; is duration 
005B F017 0630 BEQ FIN ; if zero, finished 
0050 908406 0640 STA CNTS,X ; else, update counter 
0060 C8 0650 INY ; index for next byte 
0061 98 0660 TYA ; and save index 
0062 909006 0670 STA STRPOS ,X 
0065 В09С06 0680 LDA LOUD,X ; reset loudness 
0068 909806 0690 STA SUSH,X ; counter 
0068 18 0700 CLC ; skip over 
006C 900С 0710 BCC NEXT 
005Е 900002 0720 REST STA AUDF1,X ; sound off 
0071 18 0730 CLC 
0072 90DF 0740 BCC REST1 
0074 9D9006 0750 FIN STA STRPOS,X ; reset string pos. 
0077 0Е8006 0760 DEC REPS,X ; next repetition 
007A СА 0770 NEXT DEX ; next voice? 
007B 1085 0780 BPL LOOP ; yes 
0070 4С62Е4 0790 UMP XITUB  ; return to Atari VBI 
PAGE 3 
SYMBOLS 
=0201 AUDCI =0200 AUDF1 0684 CNTS 
=00СС INDHI =00СВ INDLO 0002 LOOP 
0033 NOTE 0640 QUIET 0680 REPS 
=00СЕ SAVED =00CD SAVEX 068C STRHI 
0698 SUSH =E462 XITUB 
0694 DIST 0074 FIN 
069C LOUD 007A NEXT 
006E REST 0053 REST1 
0688 STRLO 0690 STRPOS 


TWO BASIC COMPILERS 


by Pat Warnshuis, Editor, Portland Atari Club 
(published in ACE and PAC simutanously) 


Two compilers for Atari BASIC have appeared on the market almost 
simultaneously: 

The BASIC Compiler, by DATASOFT,INC. 9421 Winnetka Avenue, 
Chatsworth, CA 91311. 48K, disk. 

ABC: A BASIC Compiler, by Monarch Data Systems, PO Box 207, 
Cochituate, MA 01778. 40K, disk. $69.95. 

A BASIC compiler converts your SAVEd BASIC program to fixed 
machine language code which is run as a binary program. The BASIC 
cartridge is removed as there is no need to re-interpret your code every 
time it is executed. Normally, when your BASIC program is RUN, the 
BASIC interpreter picks up each instruction from your program in 
sequence and asks "What do you want me to do now?" Then it goes 
off to perform the task you assigned to it. It also has to look up where 
it saved any variables, numbers, or strings as they occur in your code. 
Lots of error-checking going on also to keep the program from running 
amuck. The RUN-time interpreter has to figure out all these things 
every time it executes the same line of your code. 

The great advantage of this method is the process is entirely 
interactive. That is, you tell BASIC to do something and it does it 
immediately. You see the results of your instructions right now and 
can instantly stop BASIC to change your program. Atari BASIC is the 
most generous BASIC of all in the freedom it allows you to stop, 
change, and continue your program as it is running. It is also one of 
the best for telling you immediately if you made a mistake while 
typing in your code. But the price you pay for this ease of interactive 
programming and error checking is time. 
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A compiler runs much faster because it does not have to interpret 
each line of code every time it executes it. It figures out what you want 
to do just once. Also, it does all the bookkeeping and table lookup just 
once. So when you run your program it already knows what you want 
to do and where everything is. It simply says “Do it! Do it! Do it!. Don't 
look around! Don't get fancyi...Just do it! Do it! Do it!" It doesn't 
have to ask itself all those complicated questions about “what are you 
talking about and where did | put that thing?" A compiled program can 
run much faster than your BASIC interpreter because it is screaming 
through your program in a direct line in machine language with 
everything figured out in advance. | 

But the price you pay for time is convenience. You don't see your 
errors until the compiler tries to translate your source statements into 
its machine language (compile-time errors). First you enter all of your 
code at one time using a program editor which will accept anything 
you give it. Then you compile the entire program in one operation. 
That's the first time you trap all those silly syntax and typing errors. 
The compiler will report most of them as it tries to make sense of your 
code. Many times, however, a single error confuses the compiler so 
much it simply has to give up right then and there. Then you go back to 
your program editor, correct the mistake, and try to compile the 
complete program again. Things are happening in big chunks here and 
this can be frustrating for a hacker who has been spoiled by an 
interactive interpreter such as BASIC. 

Once your program is compiled, it sits in a disk file all by itself. It's 
just another machine language program. You load it and run it as a 
binary program without the BASIC cartridge. The compiler does slip in 


alot of its own routines to help execute your statements at run-time. : 


But these are invisible to you. 

When you run your compiled program, you will discover your run- 
time errors. These are the errors which slipped through at compile 
time because their syntax was OK and the typing looked fine, but the 
program suffers from a bad case of aphasia. "My computer keeps 
doing what I tell it to do, instead of what І want it to do!" Now we see 
another big difference in running our program under the BASIC 
interpreter as opposed to compiled code. Remember, the BASIC 
interpreter is always there. It lets us stop, change, and continue at 
statement in our program if we want to. When we discover a run-time 
error in our compiled program, however, we have to stop, reload the 
editor, reload our source code, make the correction, recompile the 
program, save it, and try to run it once more. 

Of course, we soon get smart in using a BASIC compiler. We learn 
to write, debug, and run the program entirely with the BASIC 
interpreter before we try to compile it for the first time. Some 
operations will be so time critical we can't do that: animated or 
complex graphics, real-time simulations, fast sampling 
measurements, or process controllers, for example. 

So, while a compiled program will run some three to fifteen times 
faster than an interpreted program, it is more difficult to write, debug 
and change. Generally, | say, "Don't use a compiler until you've proven 
the interpreter can't do the job." But, when you must have the 
increased speed or memory, a BASIC compiler offers a solution which 
may be simpler than other alternatives, such as Forth, Pascal, C, or 
assembly language programming. 

These two compilers from DATASOFT and Monarch Data Systems 
differ sufficiently in their methods and capabilities and applications. 
You will have to evaluate them in terms of your peculiar requirements. 
The following two reviews are intended to help you make your choice. 


DATASOFT BASIC COMPILER 

DATASOFT's compiler generates an intermediate assembly 
language source listing which is assembled into 6502 machine code 
with a 3-pass assembler. When your resultant binary program is saved 
to disk the compiler merges it with a run-time package of standard 
routines needed to execute your code. 

Don't be surprised if you compile a single line program and see your 
binary file takes some 34 sectors! DATASOFT merges its entire run- 
time package with each program you compile, regardless of the size of 
your program. As your program gets larger, the overhead becomes 
proportionately smaller. 

A nice feature of the DATASOFT approach is it permits you to select 
either a floating point or a fixed point run-time package. The floating 
point package includes all the transcendal trig, log and exponential 
functions. A floating point program will run three to ten times faster 
than its BASIC version, depending on the amount of arithmetic in the 
program. The fixed point package is more limited, of course, but is 
extremely fast as it uses only 16-bit arithmetic over the range of -32768 
to +32767. A program compiled in fixed point can run anywhere from 
5 to 20 times faster than the original BASIC program. However, you 
lose the transcendal and random functions. Unfortunately, the 
compiler does not offer you the option of mixing fixed and floating 
point variables. (But then, it doesn't cost $500 either.) 


DATASOFT offers a striking option to proficient assembly language 
programmers. You can ask for a Line Reference Map which will list 
each line number of your BASIC program and tell you where in 
memory the line is assembled. There is an aphorism in the software 
community which states that 8096 of your time is spent in 10% of your 
code. (Pick your own numbers.) This means you're really only hurting 
for time in a very small portion of your program, say in highly iterative 
loops or number crunching or real-time measurements and process 
control. So a good programmer in time trouble need only concentrate 
on a small portion of the assembled code. This Line Reference Map 
lets you zero in on the problem area for optimization. 

The Line Reference Map also lets you enter the assembled program 
at specific line numbers, just like doing a GOTO xxxx from the direct 
mode in BASIC. 

You can enter the assembly source code into your editor and modify 
it. However, | am not sure how to skip to Pass 2 of the compiler to 
assemble the modified version. 

There are some restrictions in using the compiler. First of all, you 
must realize the BASIC interpreter is not resident so, naturally, you 
cannot use commands such as LIST, ENTER, RUN, LOAD, CONT, 
DOS, NEW, SAVE. They don't list them explicitly but I'm sure PRINT 
and LPRINT are proscribed also. Better check DEG. This could be a 
sneaky one to debug if not trapped. These are not limitations of the 
compiler, they are just the nature of the beast. One surprise, though, is 
you cannot use "RUN filespec"in your program, even if the called 
program has been compiled separately. And, since a fixed point 
number cannot exceed 32767, what do you do with addresses which 
exceed that value? Yes, it can be done and l'II leave its method to your 
pleasurable pursuit. It's the kind of thing which evokes a private smirk 
from Arlan Levitan. 

You must heed some format restrictions. in your BASIC program. 
These are not hard to live with but they do suggest you can't just load- 
compile-and-go with complete abandon. Watch out for nitty gritties in 
assigning substrings to a string variable, avoid named lables for 
GOSUB and GOTO’s, place DATA statements at the end of your 
listings. Arrays cannot be dimensioned dynamically. This means you 
cannot say “INPUT N:DIM ARRAY(N)”. 

The documentation is good. The manual is clearly written so the 
uninitiated can walk through the compile-and-run process very nicely. 
Sufficient detail is provided the advanced programmer to dive in and 
fine tune the compiled code. 

Error handling is smooth, both at compile time and at run time. The 
compiler flags your errors but tries to continue the assembly to the 
end so it can inform you of as many errors at a time as is possible. 

There are a couple of bugs, one of which DATASOFT has already 
corrected. An ERROR 133 will be generated if you use a constant for 
an index in a string. You can't use “А$(3)”. You have to use 
“X = 3:A$(X)". If you run into this problem, send your disk back to 
DATASOFT and they will replace it with the corrected version. 

This compiler will not boot up in a system with 64k of RAM. It will 
not run with the Newall Fastchip if you used the floating point option. 
This problem sounds suspiciously like someone entered the floating 
point routines at unauthorized vectors. | don't know what DATASOFT 
is doing about either of these two errors. 

Comment: A fine implementation. Highly recommended for anyone 
hurting for time or space in their BASIC programs. 

Ultimate Recommendation: | obtained a pirated copy for this review. 
(DATASOFT does not provide review copies.) | had such respect for 
the product | went out and purchased it, saving the pirated copy for 
true backup. 


ABC, A BASIC COMPILER 
Monarch Data Systems 


Monarch's compiler generates P-code rather than direct 6502 
machine code. P-code is an interesting concept worthy of a future 
article in itself. Suffice it to say it is one level removed from machine 
code in that it must be interpreted somewhat like a threaded language. 
However, it runs very fast and is just a hint slower than machine code 
itself. 

ABC offers fixed point arithmetic only — no floating point. So its 
features are quite similar to DATASOFT's compiler in the fixed point 
mode. However, Monarch's fixed point format is three bytes long so it 
can handle numbers in the range of plus or minus eight million. This is 
more than enough for games, graphics, file management, mail lists, 
modem programs, system software, etc. However, you do have to be 
careful in financial programs. Although you only need two decimal 
places for input/output, you should do all your internal calculations to 
at least three places to allow for roundoff. This means your financial 


range is more like plus or minus $8000. Hmmmm... 


13 


Interesting, too, is the point that ALL calculations are performed as 
interger arithmetic. What do you get in Atari BASIC for “Х = 5/3*2”? Uh 
huh. And how about “X = INT(5/3)*2"? Now what do you expect from a 
fixed point system for “X 2 5/3*2"? So you want to be careful about 
integer divide. A change to 5*2/3 is probably what you're after. But this 
kind of thing can be nasty to debug. Very dangerous, indeed, is the 
possibility in a complex calculation you don't realize you have a 
problem and accept bad answers unwittingly. | don't fault Monarch for 
this anamoly. | rather make the point that yOu, as a programmer, must 
accept the responsibility for understanding the tools of your trade. 

Monarch's manual offers suggestions for scaling techniques to 
produce results similar to floating point. It also offers hints for 
simulating trig functions with fixed point using scaled lookup tables. 

Surprise! Monarch's compiler includes a utility program for making 
your program relocatable! It involves a double compilation technique 
described in the literature and permits you to locate programs in high 
memory, or even in bank switched memory if you have a 64k board. 
Even without the external utility program you have a choice of where 
you want the load program's starting address to be. 


COMPARISONS: 

Unlike DATASOFT's compiler, Monarch's System allows the use of 
variable names with GOSUB and GOTO as well as dynamically 
dimensioned arrays. It also treats strings and substrings identically to 
Atari BASIC. DATA statements can be anywhere in your source 
program. Since Monarch's system is a one-pass compiler, there is far 
less disk swapping involved if you have a single disk system. In fact, 
once you load the compiler and insert your source/destination disk, 
you don't have to do any disk swapping. 

The Monarch compiler can handle source programs up to 2000 lines 
long in a 48k system, or some 1000 lines in a 40k system. DATASOFT, 
in a 48k system, apparently has problems with programs which are 
larger than 100 sectors. Since you cannot chain programs, this seems 
like a serious limitation. 

It seems there might be less effort involved in converting an 
existing Atari BASIC program to compiled format using the Monarch 
system. On the other hand, DATASOFT offers a full floating point 
mode with all transcendental functions. DATASOFT's integer mode in 
6502 machine code should execute faster than Monarch's P-code but 
not a whole lot faster. 

Both of these compilers are amazingly low-priced (compared to the 
$350 to $500 price tag on compilers for other systems). Neither 
company requires a royalty on software developed with their 
compilers provided you acknowledge their use in your program or 


documentation. 


If you've been looking for a reasonably priced disk utility DISKWIZ 
may fit the bill. It’s a menu-based program with adequate 
documentation allowing you to carry out a number of disk 
maintenance activities. It supports both Epson MX80 and NEC 8023 
printers. It's also fast since most of it is written in machine language. 
It works with both Atari DOS 2.0 and non-DOS disks. 

In addition to the “normal” disk maintenance routines such as 
fixing a duplicate filename and recovering a deleted file DISKWIZ 
performs a number of other special purpose tasks. Any disk can be 
mapped to produce a picture of the entire disk including bad sectors. 
DOS files can be traced to show sequentially which sectors make up 
the file. Each sector on a disk can be viewed in both hex and ASCII 
format. The disk directory located in sectors 361-368 can be displayed 
in a very readable format as well as in hex-ASCII. The data in a sector 
can be altered and the results written back to the disk. There is a copy 
routine which is much faster than DOS and not limited to DOS format 
disks. But because DISKWIZ requires the BASIC cartridge be 
installed, only 200 or so sectors can be copied at a time. Therefore 4 
swaps between source and destination are required to copy an entire 
disk. There are some hints in the documentation on how to create 
"bad" sectors, but be forewarned you must take your disk drive cover 
off and mess with your speed control to accomplish this task. 

Another set of commands allows you to tinker with the linkages of 
DOS sectors. Sectors can be renumbered and/or moved, the sector 
links can be revised after a move, the VTOC in sector 360 can be 
manipulated to lock out sectors from DOS. This last function can be 
used to fix an unformattable disk by first mapping the disk to find the 
unformattable sector. Then the VTOC is adjusted to fool DOS into 
thinking that sector is in use. The rest of the disk then becomes 
usable. 

Finally, DISKWIZ has a series of useful options which in my mind 
could justify the cost of the program by themselves. There is a disk 
Speedcheck utility for checking and adjusting the disk drive speed. 
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There is a hex-dec-ASCII conversion routine allowing you to rapidly 
convert between these three modes. There is a very good print routine 
allowing you to dump the contents of the screen directly with an 
Epson MX80 or NEC 8023 printer (including special graphics 
characters) or with graphics characters represented by a period with 
other printers. A search function can be used to find any sequence of 
ASCII characters anywhere on the disk. And there is an onboard 
disassembler which can be used to disassemble the disk sector by 
sector to the screen and get a printout of the disassembled code if 
desired. The disassembly can be offset between 0-6 bytes and the last 
three bytes of each sector can be ignored (this is where the link 
pointer and bytes in use information are stored). | | 

The disadvantages | see in DISKWIZ are the assumptions it makes 
about the level of knowledge about disk structure which may be above 
the level of the average user and the documentation is a bit obscure at 
times. Neither of these problems are insurmountable though and | 
recommend the program if you’re interested in finding out more about 
your Atari disks and also more about the programs on those disks. 

DISKWIZ, by Jerry Allen, is available from Allen Macroware, 1906 


Carnegie Lane “Е”, Redondo Beach, CA 90278. | 
4-4 | — Топу Vander Heide 


Corvallis, Oregon 


TINY TURT 


by Ruth Ellsworth 


One of the nicest things about ATARI PILOT is turtle graphics. The 
ease of doing graphics with the turtle makes PILOT an especially 
attractive language for young children. 

In the event you have not met him, the turtle is a friendly little 
fellow. One has only to point him in the direction desired and tell him 
how far to go. This eliminates the necessity of plotting pictures out 
before hand on graph paper, a chore which the younger children in our 
home greet with the same enthusiasm as a trip to the dentist's office. 

Because the turtle is invisible, it is sometimes difficult to help 
children visualize where the turtle is, and where he is going. We solved 
the problem in our home by using the Visiturt program by David W. 
Thornburg published in COMPUTE! magazine, April 1982. If you do not 
have access to that magazine, you can use a method similar to LOGO 
by writing a simple program which allows the child to direct the turtle 
with words like up, down, left, right, etc. A sample of such a program is 
listed at the end of this article. 

One of the nicest things about the turtle is he can give children a 
feeling or orientation to geometric and mathematical concepts. When 
children do not know what they need to do to make the turtle draw the 
picture they want, they can be encouraged to pretend to be the turtle 
and pace out the desired shape. It is an exciting and joyful experience 
to a child to discover how geometric shapes are made by pretending 
to be the turtle. Relationships which otherwise might remain a 
mystery or have to be memorized in some laborious fashion truly 
become "child's play." Such “discovery learning" seems to be 
transferred into other applications with greater ease than traditional 
methods of approaching similar concepts. 

Since children learn best when they have someone to share the 
learning experience, | recommend you program with them. If you are 
just a beginner, you may want to try some simple line drawings using 
the LOGO type program. The documentation included in the PILOT 
package can be used to choose degrees of turning to make more 
complicated pictures in your own programs. 

The second and longer program included in this article is one | 
wrote for my just turned three year old. He wanted something that 
allows him to actually make something he can understand happen at 
the computer keyboard. This little program allows him to draw 
pictures using the directional arrow keys and the x, f, [, and ] keys. 
The special keys make diagonal lines, which | have left as he likes 
("fancy"); the x and f being above the arrows draw diagonal lines 
going up, and the [ and ] draw diagonal lines going down. The turtle is 
double size and flashes so my little one can tell where he is. The 
program does not allow him to go “out of bounds," and beeps when 
the edge of the picture area is reached to remind him to change 
direction. 

The program is made up of a module for each direction. 
Ч(@В764 = x) means jump if at byte 764 the value = x. Byte 764 
returns the value of the last key typed. Each key on the keyboard of the 
computer has a decimal value which can be found on page 50 of the 
technical manual (for those of letters only, you can refer to the Letter 
Snatch game published in my article in the February Newsletter). 
Therefore | am asking the computer to jump to the indicated module if 
a key is typed equal to one of the decimal values І have chosen to use 
in my program. No return key is necessary for input when byte 764 is 
used. 


BANK STREET WRITER 


| am ten and а half years old and was asked to review the Bank 
Street Writer, a home word processor for children. | think it's the best 
program l've worked with in my experience with computers. The 
manual is very thorough in giving directions, and very easy to 
understand. In addition, at the top of each mode, step by step 
directions are printed. 

However, 1 feel the best way to learn about the Bank Street Writer is 
to use the tutorial program which is located on the back side of the 
disk. The tutorial program is a series of 5 lessons to teach you how to 
work the Writer. The lessons are foolproof. If you make a mistake, it is 
caught and you must repeat the instruction. The whole tutorial 
program takes approximately 30 minutes. 

Once you have learned to use the Bank Street Writer, you will find it 
has many good features. One of the features | like best is when you 
type a word and it doesn't all fit on the line the computer automatically 
moves the whole word to the next line. Another good feature is all the 
options in the edit mode and transfer mode. You can erase up to 15 
lines of text at one time. Then if you change your mind you can 
unerase it. You can also move parts of the text around. You can find a 
specific place in the text by using Find. Using Replace you can 
exchange one word for another. 

In the transfer mode there are two ways to print. Print Draft and 
Print Final. The Print Draft prints the text exactly how it is on the 
screen. In Print Final you can control how the text will look. And the 
neatest thing is it asks if you really want to do the option you choose 
before it does them. 

The only bad thing is 1 couldn't figure out how to indent the first line 
of a paragraph using the indent feature. But the space bar worked just 
fine. | recommend this program for all ages. Even my dad had fun with 
it. It is really AWESOME! 

AND NOW A WORD FROM MOM: 

For you parents who are novices with the computer as | am, take 
heart. The Bank Street Writer is so easy to understand and use that 
even we can use it. It is the perfect tool for gaining confidence on the 
computer as well as being an excellent word processor for a beginner. 
І spent only minimal time with Wendy while she learned how to use 
the Bank Street Writer. After doing the lessons on the tutorial 
program, | too felt very at ease with the processor. I wholeheartedly 
endorse this for any family with school age children. 

— Wendy and Sandy Cheldelin 


ERACE UPDATE 


| have just finished compiling and editing a list of all the educational 
programs in the ACE library. | copied the best of these programs onto 
seperate disks, and we now have three disks devoted to educational 
material. If you want a listing of these disks with program 
descriptions, send a SASE to ERACE, c/o Robert Browning, 90 W. 
Myoak Dr., Eugene, Ore., 97404. 

We want to thank Roy Dugan for the three programs he sent us last 
month. These programs, Memory, Numbers 15, and Math, are included 
on one of the educational disks. (Note: we will have all of the programs 
on cassette also.) 

Our May meeting will be held at Ali Erickson's, 295 Foxtail Dr., on 
the 3rd of May. This will be a public domain edcational software swap. 
So bring your programs, your empty disks and tapes, and come share 
with us. Even if you don't have any public domain programs to swap, 
come and start building your library. If you can't make it to the 
meeting, but you still want to swap material; let us know what you 
have and what you're looking for and we'll see what we can do. 

The June meeting will be on the 7th, at a place to be announced. We 
will be evaluating programs in our library, plus any new material we 
receive. 

New users often ask us, “Мом that | have my Atari what do І do with 
it?" So we are taking on a new project, and we are soliciting your 
input. We want to put together a list of materials, hardware, software, 
literature, etc., for people just starting with their Atari. If you have 
something you think you can't do without, or know of Something you 
wish you had had when you were starting, let us know. 

We are still soliciting software for review. Even though we want to 
See as much comercial work as possible, we are just as interested in 
seeing your pet project even if you don't plan to market it. 

Happy learning until next month. — Bob Browning 
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ERACE 
ERACE SOFTWARE EVALUATION FORM 


The First Draft : 

ERACE members have been putting together a software evaluation 
form. It is our first product oriented project and a draft copy is 
included in this newsletter. | think at times we all felt we were most 
probably reinventing, or at least reshaping, the wheel. However, the 
process of doing this together got individuals from very diverse 
backgrounds communicating in a common language about software. 
The process was thought provoking, stimulating and educational. The 
essence of a project like this, and perhaps user groups in general, is 
we got together and taught ourselves something about “the state of 
the art". We are looking forward to testing out our evaluation form on 
our own software library as well as on other public domain and 
commercial software. Any comments and suggestions will be 
appreciated. THANKS TO ALL ERACE MEMBERS WHO WORKED ON 
THIS! 

—Ali of ERACE 


BANK STREET WRITER 


Program Review by Robert Browning (ERACE) 
| “The Bank Street Writer”, by Broderbund Software, is an amazingly 
Simple to use word processor. A tutorial provided on the reverse side 
of the disk takes you through the basic functions of the processor and 
Step-by-step shows you how they work. My nine year old son was able 
to use the processor after going through the tutorial. 

The screen is formated so it is very easy to read and understand. All 
functions and instructions are throughly prompted on the screen. 

The program has excellent documentation which thoroughly 
explains each function of the processor including some of the finer 
points not in the tutorial. 

The Bank Street Writer is very well designed and appears to have 
taken into consideration users of all ages. No matter what | have done 
to the program it has never crashed. This one appears to be kid-proof, 
or is that user-proof? 

It has all the writing and formatting options needed to produce a 
document of moderate length. But keep in mind this is not meant to be 
a full-blown word processor. It does not have full printer controls, nor 
many of the other complex formatting options you get with the more 
complicated word processors. Some users feel this isa big deficit, but 
І think those who will use this writer probably will not need those 
options. It is designed so anyone, including children, can use it to 
easily write small documents such as letters, reports and articles. 

The only real drawback is there is only room for 1000 characters 
with the Basic cartridge in, and 2000 characters without the cartridge. 
But even this can be overcome by periodically filing the text and then 
combining the files when the document is printed. Moving the cursor 
during the edit functions is Somewhat awkward and takes some 
0 used to. But then again it's Something any nine year old child 
can do. 

| used Bank Street Writer to write this review. Even though it does 
have limited space, and the Cursor control is a little cumbersome at 
first, | liked it for its simplicity and ease of use. | give it 7.5 on a scale 
of 1 to 10. 

It takes 48K and a disk drive to use the Bank Street Writer, and sells 
for $69.96. 


0 REM REPRINTED FROM АСЕ OF COLUMBUS, OHIO 
1 K=300 | 

4 REM ОООО ЖЕЖ 

5 REM X STING BY BRENT BORGHESE Ж 

6 REM ЖАККЫ» 

7 FOR R-0 ТО 33:READ Z:POKE 1538FR,Z:NEXT В 
10 READ А 

21 IF 4-255 THEN END 

25 REM SOUND 0,A,10,10 

30 Z=USR( 1538, 255-(Ak1.3),A) 

50 FOR L=1 TO 27:NEXT L 

60 GOTO 10 

62 DATA 104,104,104,133,205 104,104,133, 204 
,169,255,141,31,208,164,204,136,208,253,169 
63 DATA 0,141,31,208,164,204,136,208,253,19 
8,205 208,232 96 

70 DATA 108,102,96, 60,86, 60,96, 60,53,5047, 
80,53 47,47, 64 

80 DATA 53,60,108, 102,96, 60,96, 60,96, 60, 72, 
81,85,7260 47,53,60 

90 DATA 53,108, 102,96, 60,96, 60,96, 60,53, 50, 
47 60, 63,47, 46, 64,53, 40,60 

100 DATA 53,47,60,53,47,47,60,53,60,47,60,5 
3,47,47,60,53,60,47,60,53,47,64,53,60 

110 DATA 108,102 

200 DATA 108,102,96,60,96,60,96,60,53,50,47 
,60,53,47 ,47 ,64 

210 DATA 53,60,108,102,95,60,96,60,96,60,72 
81,85, 72,60, 47,53, 40 

220 DATA 53,108, 102,96, 60,96, 60,96, 60,53, 50 
,47 ,60 53,47, 47 , 64,53, 40, 60 

225 DATA 53,47,60,53,47,47, 60,59, 60,47,60,5 
3,47 ,47 60,53, 40,47, 60,53, 47, 64,53, 60 

230 DATA 60,96,91,85 

300 DATA 108,102,96, 60,96, 40,96, 40 53,50, 47 
60, 53,47 ,47 ,64 

310 DATA 53,640,108, 102,96, 60,96,60,96,60,72 
,81,85, 72, 60,47 53,60 

320 DATA 53,108,102, 96, 60,96, 40,96, 60,53, 50 
‚47,60 63,47, 47 , 64,53, 60, 60 

325 DATA 53,47,40,53, 47,47, 60,53, 60,47, 60,5 
3,47 ,47 40,53, 60,47, 60,53,47, 64,53, 60 

330 DATA 60,255 


2000 REM X-$600 


2100 REM LDY 
2010 REM PLA 2120 REM BNE 
2020 REM PLA 2130 REM LDA 
2030 REM PLA 2140 REM STA 
2040 REM STA $CO 2150 REM LDY 
2050 REM PLA 2160 REM CC 
2060 REM PLA 2170 REM BNE 
2070 REM STA $CC 2180 REM DEC 
2080 REM BB LOA #$FF 2190 REM BNE 
2090 REM STA $001Е 


2200 REM RTS 


АА 


АТНВ000 INTERFACE 


Software Publishers 
reviewed by Pat Warnshuis, editor Portland Atari Club Newsletter 
(published simutaneously in ACE and PAC) 


This is the most exciting piece of hardware since the Atari 800! | am 
so impressed by this interface that 1 purchased it with two double 
density, double sided disk drives and sold my 850 interface with its 
two 810 disk drives. | cannot imagine anyone purchasing an 850 
interface with an 810 disk drive now that this product has arrived. 

The ATR8000 starts out as an interface unit similar in function to the 
Atari 850 interface. In fact, you simply unplug the 850 interface and 
plug in the ATR8000 using the same cable. You get a parallel printer 
port, an RS-232 serial port for a modem, and an intelligent disk 
controller. The disk controller can address Atari 810 drives, single 
density single sided, double density single sided, double density 
double sided, either five or eight inch drives. You can mix five and 
eight inch drives on the same daisy chain. You can read just about any 
disk format: Osborne, Kaypro, Xerox, Heath, etc. 

Included in the basic unit is a Z-80 4 MHz processor with 16k of 
RAM. The Z-80 acts as an intelligent interface so the Atari computer 
thinks it is talking to its own 850 interface. Part of the 16k RAM acts as 
a 4k print buffer. That means the interface can accept and store 4k of 
data as fast as the 800 can dump it out. Then it releases the 800 for 
other tasks while the interface's Z-80 sends the data on to the printer 
at the printer's comparatively slow rate. 

OK. That's the basic unit. But you can add the most exotic features 
to it. And the more you add, the more cost effective it becomes. 

First, simply change the RAM chips to get 64k of RAM. This gives 
you a 48k print buffer (about 20 single spaced typewritten pages). 

Next get a disk with the CPM operating system on it. Now the 
interface thinks it is a standard CPM system with the Atari as its 
terminal. Run any CPM program you can find — there are thousands 
of them. The local RCPM bulletin board has some 100 disks of public 
domain, CPM User Group software available for downloading. Run 
Wordstar, Supercalc, dBll, PL1, Pascal, Microsoft BASIC. ..you can't 
even count 'em. Take a look at any magazine for CPM software ads. 

Don't like the 40-column display of the Atari? Throw a switch and 
plug in any RS-232 terminal. on the market. You can chose a Soroc 120, 
Heath 19, ADM ЗА, Vision 50, Televideo...take your pick. 

You say you find your Atari with double density, double sided disks, 
printer and modem too restrictive? Not satisfied with your 64k, 4 MHz 
CPM system with its 80 column, 24 line terminal? OK. Add 256k of 
RAM with an 8088 processor and run CPM/86 or MSDOS operating 
systems. That’s sixteen bit processing, right up there with the Big 
Boys. And, get this! When you’re running the Z80 with CPM, the 256k 
of RAM is available as a memory disk drive. Talk about speed! Hah!!! 

Yeah, but how much does all this cost? Well, you can approach it in 
steps. Remember, the basic 16k unit with one DDDS drive gives you 
four times storage as an 810 drive plus a 4k print buffer just for 
starters. The basic unit retails for $350; $600 with 64K and CP/M. 
Tandon Disk Drives with power supplies & cases can be obtained from 
independent sources for $250. 

Support? Listen, | bought Serial Number 3 of this thing. When you 
buy SN #3 of anything, you better have support. Software Publishers 
are better than great in their support. They are excited entrepeneurs 
who pass on their continuing discoveries of additional capabilities to 
us at no charge. We already have received a twelve page newsletter, 
several additional support software programs, and suggested mods 
for reduced RFI and improved RESET operation. This system is so 
powerful all of us will continue to discover unsuspected features and 
applications. Software Publishers is acting as the clearing house for a 
user group type newsletter. 

The 8088 processor with its 128/256k of RAM already works with the 
Xerox 820 and the Bigboard. It will soon be available for nearly all Z80 
and 8080 micros that run CPM. This translates to increased volume 
sales and this means more users and third party support. 

The Portland Atari Club just purchased the basic 16k unit with a 
single DDDS drive for its bulletin board. Better get your order in. The 
line is going to be a long one. 
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С SOFTWARE EVALUATION FORM #1 
E ATARI COMPUTER ENTHUSIASTS 
——————— ———PROGRAM DESCRIPTION 
SUBJECT : AGE/GRADE: PROGRAM CONTENT: 
Program Name: Specific Subject Matter: 
Producer: 
Address: Program Objectives: 
Cost: 
Back-up System Policy: DOCUMENTATION: 
SYSTEM: Brand On Disk/Tape 
Hodel On Paper 
Memory Required User is taught to use program 
Language Program content is described 
REQUIREMENTS FOR USE: Program has been field tested 
Hardware Validation data is included 
Software 
Time 
PREREQUISITES FOR INSTRUCTION: USE OF COMPUTER CAPABILITIES: 
Prerequisite Skills: Graphics Color 
Additional Assistance Needed: Animation 
Voice on Tape 


Tutorial Use of Sound Effects 


Drrll.& Practice Variation in Timing 


INSTRUCTIONAL TECHNIQUES: Computerized Speech 


Educational Game Selection of Options 





Simulation Difficulty Level 
Problem Solving Sequencing 
Testing Cueing and Prompting 
Keeps User Records Modifiable by User 
EVALUATION 
[1 = Exceptional; 2 = Adequate; 3 = Unacceptable; 4 = Not Applicable] 
DOES IT WORK? # COMMENTS : 


пазу ЕО е: recu жаача баба жЩ эсе al e Ta n ou, M. du te % 
Documentation includes clear instructions.... 
Documentation describes content of program... 
CONTENT: 
Content consistent with program description.. 
Content based on sound instructional design.. 
INSTRUCTIONAL QUALITY: 
Unliqüue..computer capabilities utilized... 5. .i 3 
Ргедепкактопзаб Docisned.....2.9 e 8 ооа ез 
Appropriate instructional techniques 
matched to stated objectives............ 
Feedback is specific and motivational........ 
Flexibility in presentation and timing 
OI-cODHLOHE. A Susie S EE TP. eg И er да woe d UR 
COMMENTS : 


-ERACE, c/o 3662 Vine Maple Drive, Eugene, OR 97405- 


MAY 11 MEETING 
7.30 pm 


L.C.C. FORUM 308 


TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line’ 
And it’s easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


20е & Design Services 


Пе. 


30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


ENTHUSIASTS | 
3662 Vine Maple Dr Eugene OR 97405 


FIRST 


Ұ 





CLASS 





Atari Computer Enthusiasts 


A.C.E. is an independent computer club and user's group with no connection to 
the Atari Company, a division of Warner Communication Company. We are a 
group interested in educating our members in the use of the Atari Computer and 
in giving the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our members. 

Our membership is world-wide; membership fees include the A.C.E. Newsletter. 
Dues are $10 a year for U.S., and $20 a year Overseas Airmail and include about 10 
issues a year of the ACE Newsletter. 

Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405 
President—Kirt Stockwell, 1810 Harris #139, Eugene, Or 97403 / 503-683-3005 
Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 І 503-686-1490 
Secretary— Charles Andrews, РОВ 1613, Eugene, Or 974401613 / 503-747-9892 
Librarian-Chuck and Jody Ross, 2222 Ironwood, Eugene, OR 97401 І 503-343-5545 
Editors— Mike Dunn, 3662 Vine Maple Dr., Eugene, Or 97405 / 503-344-6193 

Jim Bumpas, 4405 Dillard Rd., Eugene, Or 97405 / 503-484-9925 
E.R.AS.E. (Educational SIG Editor)—Ali Erickson, 295 Foxtail Dr., Eugene, Or 
97405 / 503-687-1133 


Send a business-size SASE to the Ross’ for the new, updated ACE Library List!! 


Bulletin Board 

(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists of a Tara 
equipped 48K Atari 400, 2 double-density disk drives, an Atari 825 printer, a Hayes 
SmartModem; running the ARMUDIC Bulletin Board software written by Frank L. 
Huband. See the Nov ’82 issue for complete details. 


